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ABSTRACT 

Shipboard electrical distribution systems are changing significantly with the intro- 
duction of solid state frequency converters, introduction of electric propulsion and integrated 
electric drive, and the possibility in the future of large combat systems pulsed loads. Existing 
computer tools for analyzing power systems have difficulty simulating these changing con- 
ditions. To assist in the evaluation and analysis of future shipboard electrical distribution 
systems, the Shipboard Electrical Plant Simulation Program (SEPSIP) was developed. 

The key feature of SEPSIP is its use of implicitly defined input variables and implicit 
variables which allow for every element of the simulation to be mathematically isolated from 
every other element. When the constitutive laws of an element are satisfied by an appropriate 
set of input variables, all of the implicit variables have zero value. The network description 
generates the input variables based on the network topology and the results of a Newton- 
Raphson iterative scheme. The key advantage to this method is that the network description 
of a node closely models an actual electrical node. 

To demonstrate the abilities of SEPSIP, several simulations involving synchronous 
generators, induction motors, and voltage regulator dynamics were conducted. In all simu- 
lations, SEPSIP provided results that matched data generated by other simulation methods. 
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CHAPTER 1 



INTRODUCTION 

1.1 Thesis Objectives 

Shipboard electrical power systems in the U.S. Navy are experiencing a number of 
significant changes. These changes include : 

- Solid state frequency converters replacing motor generator sets 

- The use of switched DC power supplies by many loads 

- Centralized and automated power system control 

- More frequent use of electronic motor controllers 

- Sensitive electronic equipment requiring high quality 60 Hz. power. 

- Electric propulsion 

- Large combat systems pulse loads. 

Considering the tremendous expense involved with constructing a modem warship, it is 
necessary to ensure that the incorporation of these changes into the design of the shipboard 
electrical generation and distribution system can be successfully accomplished with no 
degradation in the combat capability of the ship. Unfortunately, these changes, along with 
the small size of the shipboard generation system make the use of many classical methods 
of analyzing power systems inappropriate. A good analysis requires the recognition of the 
following properties of the shipboard system: 

- The small number of generators (typically only one or two) with the associated small 
amount of rotational inertia invalidates any assumption of an ’infinite bus’ operating at a 
constant frequency. 

- The dynamics of the generator voltage regulators and speed governors have time 
constants of an order that are important in the study of most disturbances. 

- The dynamics of paralleled generators are coupled through the communication of load 
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sharing and bus voltage information. 

- Solid state frequency converters and switched power supplies have non-sinusoidal 
current characteristics. 

- Solid state controllers often greatly modify or even substitute their own dynamics for 
the dynamics of the motor they are controlling. The controllers may also have non-sinusoidal 
current characteristics. 

- High power pulsed loads for advanced combat systems may become a reality in the 
near future and deserve study. 

- Integrated Electric Drive where propulsion motors and ship’s service power are taken 
from the same distribution system can result in large transients from speed changes in the 
propulsion system propagating to all of the other loads on the ship. 

The purpose of this thesis is to present the theory and design methodology used in the 
development of a computer simulation tool (SEPSIP : Shipboard Electrical Plant Simulation 
Program) for analyzing both the steady-state and transient behavior of shipboard electrical 
power distribution systems. 

1.2 Modelling Shipboard Electrical Power Systems 

Electrical Power systems are not unlike any other electrical network in that they are 
composed of electrical elements and the topological network connecting the elements. Each 
of the elements is defined by a number of constitutive equations that relate the voltages and 
currents of its own terminals. The network on the other hand, is defined by relating the 
voltages and terminals of different elements through Kirchhoff’s voltage and current laws. 

1.2.1 Elements : Constitutive Equations 

The constitutive equations describing an element can be very complicated. In ship- 
board electrical power systems, the equations can take on the form of nonlinear differential 
equations or even discontinuous functions. Additionally, elements such as generators and 
motors require the mechanical subsystem be described in detail. Other elements, such as 
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switches and circuit breakers, are defined by equations depending on the current state of the 
element. All of these factors contribute to make shipboard electrical power systems difficult 
to simulate numerically. 

1.2.2 Networks : Nodal Equations 

The nodal equations are the mathematical expression of Kirchhoff’s voltage and 
current laws that define the network topology. Kirchhoff’s current law states that the sum 
of the currents entering a node must equal the sum of the currents leaving a node. Kirchhoff s 
voltage law states that the voltage at any node is identical for every element attached to it. 1 
In themselves, the mathematical representation of Kirchhoff’s laws are very simple. 
However, the resulting system of nonlinear equations is often stiff which implies that the 
eigenvalues of a linearization of the set of nonlinear equations fall in a range spanning 
several orders of magnitude. 

Stiff systems can be solved numerically, but they require special care. The choice of 
time increments, integration methods, and simulation time are all affected by how stiff a 
system is. If a particular differential equation is known to have a very fast time constant, 
one can ignore the dynamics and always use the final value for the variable. If used properly, 
the Euler Backward method for integrating differential equations approaches the same 
solution. Fast modes can also be eliminated by a host of other model reduction techniques. 
[9] [10] [19] [28] [31] In any case, a tool designed to analyze shipboard systems must 
incorporate a method for dealing with stiff systems. 



1 An expression of Kirchhoff’s Voltage Law that may be more familiar is: The sum of the 
voltage drops across the elements of a closed loop is equal to zero. The two definitions are 
not exactly identical but are consistent with one another when one accepts the concept of a 
voltage being a potential value. 
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1.3 Power System Analysis Computer Tools 

1.3.1 Desired Features 

In light of the characteristics and potential problems associated with modelling 
shipboard electrical systems, a computer analysis tool should have the following capabilities: 

* Ability to solve systems of nonlinear differential equations. 

* Ability to handle changing network topologies due to the actions of switches and 

circuit breakers. 

* Ability to handle discontinuous functions. 

* Ability to organize the input data into a form that is recognizable as an electrical 

network. 

* Ability to easily add or subtract elements from the network description. 

* Ability to model mechanical subsystems. 

* Ability to solve stiff systems. 

The requirements on a simulation program that these features impose are not trivial. 
In fact, the author is unaware of any commercially available software package that incor- 
porate all of the listed capabilities. The software that is available can be split into two 
categories: Programs used for analyzing commercial power utilities, and software packages 
for solving systems of nonlinear equations. 

1.3.2 Simulation Programs for Land Based Power Utilities 

There are a number of computer programs which can solve different aspects of the 
power system analysis problem. However none of these programs are optimized for ana- 
lyzing shipboard systems. Here is a brief summary of several existing programs: 

1.3.2. 1 EMTP 

The Electromagnetic Transients Program (EMTP) [22] is a large-scale network 
simulation program originally developed by the Bonneville Power Association in the 
1960’s. It is capable of modeling traveling waves on transmission lines, lumped linear 
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elements, the saturation of transformers and reactors, the dynamics of synchronous 
machines as well as other elements of a power network. EMTP handles stiff systems by 
using the Euler Backward method for integration. In general, the program is optimized 
for studying the interaction between the dynamics of a number of generators and the 
dynamics of the interconnecting transmission lines. The dynamics of the loads are not 
considered important. Unfortunately, the dynamics of loads are important in shipboard 
systems. Furthermore, EMTP was written in FORTRAN for batch processing and is not 
very easy to use interactively. 

1.3.2 .2 POSSIM 

The POwer System SIMulator (POSSIM) [19] is a fifty machine transient stability 
program developed by the General Electric Company. POSSIM uses the results of a 
network load flow program (LOFYR: LOad Flow and Y-matrix Reduction) as a starting 
point for a multi-machine simulation. The program allows for dynamics only in the 
generators and their associated governors and prime movers. While generators and prime 
movers can be modeled in detail, the transmission line and load equations are purely 
algebraic. POSSIM also assumes frequency deviations are small. Since load dynamics 
are important in shipboard electrical systems and frequency deviations can become large, 
POSSIM’s applicability is limited. 

1.3.2.3 MANSTAB 

The MAchine and Network STABility (MANSTAB) [19] program is an extension 
of POSSIM which also includes transmission line dynamics. It still does not allow for 
dynamics in any of its loads. Generally, MANSTAB is suitable for studying high speed 
dynamics and does not include governor or prime mover models. For this reason, 
MANSTAB is not suitable for simulating shipboard systems. 
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1.3.2.4 MANTRAP 



The MAchine and Network TRAnsient Program (MANTRAP) [4] is a General 
Electric Company modification of the Bonneville Power Administration’s Network 
Transients Program. It is designed to solve problems concerning the interaction between 
a synchronous generator, its excitation system, torsional system, and the power trans- 
mission system. MANTRAP has a major drawback in shipboard studies in that its 
assumption of an infinite bus does not hold. 

1.3.2 .5 LOTDYS 

The LOng Term DYnamic Simulator (LOTDYS) [21] is designed to study long 
term transients of power systems lasting up to 5, 10, or 20 minutes. LOTDYS assumes all 
the generators operate at the same speed and the generator transient time constants and 
reactances can be ignored. LOTDYS also ignores excitation system dynamics and load 
dynamics. Prime mover dynamics, load shedding, and power plant auxiliaries are all 
modeled in detail. The constraints on LOTDYS severely limits its usefulness in studying 
shipboard systems. 

1.3.3 Software Packages for Systems of Nonlinear Equations 

Since the models of most electric machines are described as systems of linear or 
nonlinear equations, it seems reasonable that a general simulation program could be used 
to simulate the shipboard system. On closer examination however, the presently available 
software packages are limited in their ability to organize and interconnect several different 
machine models into a large network. Writing a shipboard electrical system as one totally 
integrated model invites the introduction of numerous programming errors as the input 
definition file becomes so large as to be unmanageable. Furthermore, the task of trying to 
add or subtract elements from the network becomes formidable. The ability to define ele- 
ments in separate blocks is very important in understanding what a simulation is doing, in 
debugging an input file, and in making error free changes to the configuration. 
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Many of the nonlinear equation solving packages are unable to solve implicit equations 
which is a handicap when trying to interconnect different models. In electrical system 
simulations, the variables representing the voltages and currents at the terminals of an 
element must be shared with the other elements that connect to the terminals. If implicit 
equations are not allowed, one of two methods is normally used to effect this sharing. The 
first method calls for one device explicitly defining the variable while all the remaining 
variables implicitly define it. This method is very difficult to implement because it forces 
one to define variables to be either inputs (implicitly defined) or as outputs (explicitly 
defined). Problems arise when one tries to connect two outputs or two inputs together (i.e. 
connecting two generators in parallel). Since in real electrical systems there is no such thing 
as an input or an output (voltages and currents depend on the properties of all the elements 
attached to a node), this method imposes an artificial constraint on the network definition. 

The other method for interconnecting element models is to define the voltages of every 
device to be inputs and the currents to be outputs. The voltage at a node is defined as a 
separate variable whose derivative is equated to function of the sum of the currents entering 
the node. This function should result in the node voltage having a very fast time constant. 
Adding the fast time constant however, makes the system stiff and difficult to solve 
numerically. It also adds dynamics that are purely fictional and in general, defeats the 
purpose of model reduction. 

1.3.3.1 CSMP 

IBM’s Continuous System Modeling Program (CSMP HI) [24] is a general 
purpose program for solving algebraic and differential equations. The program is not 
capable of solving implicit equations and is limited in the size of the systems it can model. 
For these reasons CSMP should not be used to simulate shipboard systems. 
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1.3.3.2 SIMNON 



SIMNON is a program for SIMuIating NONIinear systems of equations which was 
developed by the Lund Institute in Sweden. It is similar in many respects to CSMP and 
likewise suffers from its inability to solve implicit equations. 

1.3.3 .3 ACSL 

The Advanced Continuous Simulation Language (ACSL) [1] is another general 
purpose simulation program like CSMP and SIMNON. While ACSL does have the ability 
to include implicit equations, its execution time slows tremendously when they are 
included. ACSL also requires a single input file which can become very large and 
unmanageable for even moderately sized power systems. 

1.3.4 SEPSIP (Shipboard Electrical Plant Simulation Program) 

Since none of the commercially available software was suitable for studying shipboard 
electrical distribution systems, the author undertook the task of developing the Shipboard 
Electrical Plant Simulation Program (SEPSIP) which incorporates all of the desired 
features listed in section 1.3.1. SEPSIP solves the problem of interconnecting device models 
by forcing all of the device electrical variables to be input variables. This approach 
mathematically isolates all of the elements of the network from one another. A separate 
network description specifies how the different input variables relate to one another. The 
network description provides values for all of the input variables for every element. The 
elements in turn, provide feedback in the form of implicit variables to the network 
description as to how well these input variables solve the constitutive equations defining 
the element. The manner in which this is accomplished is discussed in chapter 2. 

The equations defining an electrical device are subroutines of SEPSIP written in the 
C programming Language. This allows for very detailed and complex models to be 
incorporated in simulations. It also requires a detailed knowledge of programming in C. 
Once a device description has been written however, its inclusion into network descriptions 
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is easy. The concept of using SEPSIP is that initially a number of device descriptions are 
written to describe the various elements of a shipboard system. Once this library of devices 
has been created, simulations can be conducted by constructing networks interconnecting 
the devices models selected from the established library. 

1.4 Significance of Thesis 

The discussions presented in the previous sections demonstrate the need for a computer 
analysis tool for simulating shipboard electrical distribution systems. SEPSIP, the program 
written as a part of this thesis, is capable of conducting the desired simulations if time is not 
a constraint. The organization and user interface of SEPSIP has been optimized to simulate 
electrical distribution systems such as those found onboard warships. SEPSIP still requires 
optimization to improve the speed in which it completes simulations. In this regard, potential 
improvements to SEPSIP are included in chapter 6. 

The general nature in which SEPSIP organizes and solves systems of nonlinear equa- 
tions has applications outside of electrical power engineering. Any physical system composed 
of a topological network interconnecting nonlinear dynamic elements can be modelled with 
SEPSIP. The author in fact, has successfully used SEPSIP to conduct a nonlinear dynamic 
simulation of the motions of a submarine in response to control surface deflections. For this 
simulation devices were created which related the motions of the bare hull and various 
appendages to the forces and torques on the center of the submarine. The results of this 
simulation correctly predicted dynamic responses that can not be derived from conventional 
linear theory. 

1.5 Outline of Thesis 

The following chapters are organized to correspond to the four design elements used 
to create SEPSIP. The second chapter describes the theory and strategy that define the 
requirements and properties of SEPSIP. The third chapter is a "user’s manual" that describes 
how the requirements of chapter 2 were implemented. Chapter four presents eight device 
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descriptions created for SEPSIP to demonstrate its usefulness. Chapter five uses the devices 
of chapter four to conduct actual simulations and where possible, to verify the results from 
SEPSIP with known responses. 

Chapter six provides an assessment of SEPSIP and lists a number of possible 
improvements for the program. The appendices provide listings of source code and 
instructions for adding new device descriptions to SEPSIP. 
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CHAPTER 2 



THEORY OF THE COMPUTATIONAL METHOD 
2.1 General Strategy 

The principle underlying the organization of SEPSIP is that the constitutive relations 
of the elements of a power system should be separated from the nodal equations describing 
the network interconnecting the elements. In electrical systems, a node is the electrical 
connection between two or more elements. The current entering or leaving a node must 
conform to Kirchhoff’s Current Law which states that the sum of the currents entering a node 
is equal to the sum of the currents leaving the node. Additionally, the voltage at a node is 
the same for every element attached to it. The role of the constitutive relations is to relate 
the voltages of the nodes an element is connected to, to the currents resulting from the element 
that enter and leave those same nodes. These principles are fulfilled in SEPSIP by implicitly 
defining all of the network voltages, currents, and other variables within the constitutive 
equations defining the individual elements. During each interval of the time domain simu- 
lation, the network variables are systematically varied so that Kirchhoff’s current law is 
always satisfied and until all the implicitly defined constitutive equations are satisfied. 

The advantage to this method is that each element can be treated separately from all 
the other elements. The element models need not be concerned with the other elements they 
are connected to. It is the responsibility of the network equations to provide input variables 
that satisfy the element’s constitutive relations, and still satisfy the nodal equations. The 
purpose of defining the constitutive relations implicitly is to provide feedback to the network 
equations that indicate how far off the input variables provided by the network are from 
satisfying the constitutive relations. This feedback is used to make corrections to the input 
variables until all of the constitutive relations are satisfied. 

To implicitly define the constitutive equations for the element, they are put into the 

form: 
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F( x) = 0 



[ 1 ] 



where 



x = Network Variable Vector 

F() = A vector operator (potentially nonlinear) that describes the constitutive equations. 
If an x is chosen so that the constitutive equations are not fulfilled, then [1] will not be true. 
Instead, an implicit vector can be defined: 



Each element then, will have its own x and corresponding implicit vector. The role of 

the network is to choose appropriate x vectors that satisfy the network nodal equations and 
result in the / vectors having zero length. 

EXAMPLE: 

A resistor is a simple example for illustrating this principle of defining constitutive 
equations implicitly. A resistor is a device that connects two nodes and satisfies Ohm’s Law. 
If we define the voltages at the two nodes to be v 0 and v, and the current entering the resistor 
from the two nodes to be i-, and i,, then the constitutive relations for the resistor are: 



I=F(x) 



[ 2 ] 



v, 



’o- v i = I 'oK 



where 



R = Resistance 



Figure 2.1-1 Resistor 

R 
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Since a resistor is a linear device, the constitutive relation can be expressed as a matrix 
equation of the form: 



/ . \ 



/ = 



1 -1 -R 0 ] 



0 0 



1 1 , 



vV 



Since a resistor is a linear element, the matrix in the above equation is also the Jacobian 
matrix for the device. 

2.2 Device Definitions 



In the language of SEPSIP, a device is a mathematical model of a piece of electrical 
equipment. Examples of devices are models of synchronous generators, transmission lines, 
breakers, induction motors, and resistive loads. A device is differentiated from an element 
in that an element is a particular example of a device. For example, element GTG1 may 
represent the 2000 KW gas turbine generator located in the forward engine room of a 
destroyer. Part of GTGl’s description would be that it is a device of type KYI 03 which 
indicates which equations should be used to model GTG1. There could also be a GTG2 of 
type KY103. A device is characterized by the equations which relate the variables that 
represent the interaction of the device with everything else external to itself. Examples of 
device variables include voltages, currents, speeds, forces, torques, position of switches, 
temperature, and pressure. These variables can be organized into a number of categories 
according to the nature of their interaction between the device and the world external to the 
device. 
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Figure 2.2-1 SEPSIP Variables 



SEPSIP Variable Interactions 



Node Voltages 




2.2.1 Input Variables : Interacting with the Network 

Input variables are those variables which interact with other devices through the 
network description. The network description consists of a number of nodes each having 
one or more subnodes. The node itself has no mathematical significance, it merely organizes 
subnodes into easily understood groups. The subnodes on the other hand, specify which 
network law should be applied to the input variables attached to it. Every input variable is 
assigned to one and only one subnode of a node. Each subnode however, can have an 
unlimited number of input variables assigned to it. There are four types of subnodes to 
which a variable can be connected to: voltage subnodes, reference voltage subnodes, current 
subnodes and reference current subnodes. 

As an example, a node connecting a three phase motor to a transmission line would 
contain six subnodes: 3 voltage subnodes to relate each of the voltage phases and 3 current 
subnodes to relate each of the current phases. 
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2.2. 1.1 Voltage Subnodes 



All of the input variables attached to a voltage subnode are assigned the same value 
at all times. This voltage subnode value becomes one of the system variables that must 
be solved for. Although primarily used for communicating voltages, a voltage subnode 
can also be used to communicate other information between two devices. Examples include 
load sharing information and load shedding information. 

2.2. 1.2 Reference Voltage Subnodes 

A reference voltage subnode is identical to a voltage subnode with the exception that 
the subnode voltage is specified as a fixed value and therefore is not a system variable. A 
reference voltage subnode must be used to set the ground potential, and may be used to 
set fixed operating points for certain elements. 

2.2. 1.3 Current Subnodes 

A current subnode relates the variables attached to it by a conservation law which in 
electrical terms is known as Kirchhoff’s Current Law. This law states that the sum of the 
variables attached to a current subnode is identically zero. In SEPSIP, this is accomplished 
by assigning the first variable attached to a current subnode the negative sum of the other 
attached variables. All of the input variables after the first one connected to the current 
subnode become system variables that must be solved for. The convention for current 
direction is that the current always enters the device and leaves a subnode. 

2.2.1.4 Reference Current Subnodes 

A reference current subnode does not satisfy Kirchhoff’s Current Law. All of the 
input variables attached to it become system variables. In most simulations, Kirchhoff’s 
Current Law at one subnode is a linear combination of all the Kirchhoff’s Current Law 
equations from the other current subnodes. To specify the law again would result in either 
a system with too many implicit variables, or one which has a singular system Jacobian 
matrix. 
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2.2.2 Parameters 



Parameters are variables that do not change through out a simulation. They are used 
when defining an element to customize a device model to fit the properties of a particular 
electrical component. Examples of parameters are resistances, inductances, capacitances, 
time constants, bias voltages, and saturation points. 

2.2.3 Implicit Definition of Input Variables 

An important requirement for the equations describing a device is that the input 
variables must be implicidy defined. The network balancing algorithms determine the values 
the input variables take on. The device description provides information (feedback) as to 
how closely the implicit equations are satisfied through implicit variables. Implicit variables 
have a value of zero when their corresponding implicit equations are satisfied. One way to 
look at this process is to view a device as a transfer function between the input variables 
and the implicit variables. The Network then uses the implicit variables to iteratively 
generate the input variables until the implicit variables are driven to zero. 

2.2.4 Implicit Variable Selection : Rotating and Translating Axes 



One has a lot of latitude in defining the implicit variables. The easiest method is to 
write the constitutive equations, move everything over to one side, then define this quantity 
to be the implicit variable. This is the technique used in the last example which modelled 
the resistor. Unfortunately, this method can result in numerical instability when dealing 
with nonlinear devices. 



Figure 2.2.4-1 Diode 
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Take a diode for example. A simple model for a diode is a switch that allows positive 
current to flow when the voltage across it 0.6 volts. Once current is flowing through the 
diode, the voltage drop across it is maintained at 0.6 volts. As with the resistor, the input 
variables are defined: v 0 and v j for the voltages, and i*, and ij for the currents. The constitutive 
relations are: 

i 0 = 0 : v 0 - v, < 0.6 

v o -v, = 0.6 : i o >0 

*0 + I] = 0 

The easy method of defining the constitutive equations would be to define I 0 and I, to 
be: 

| k '■ v o -v,<0.6l 
° Ivq-Vj- 0.6 : v o -v,>0.6j 

I x = i o + h 

This definition unfortunately, works badly in many circumstances. To begin with, the 
definition allows for negative current to flow when the diode is forward biased. Another 
problem is that the implicit variable I 0 is discontinuous at the boundary where v 0 - v, = 0.6. 
This type of discontinuity will usually cause much difficulty when trying to iteratively solve 
equations with most standard techniques (Such as the Newton Raphson method used in 
SEPSIP). In general, keeping the highest possible order derivative continuous across a 
boundary will help tremendously in achieving a numerically stable solution. 

The definition of Io can be greatly improved by defining a new set of axes centered 
on the boundary point (v = v 0 - v, = 0.6 and ^ = 0) and rotated 45 degrees. The transformation 
matrix to the new x and y variables is given by: 
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The constitutive equation for I 0 becomes: 
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y = Lx I 



Io can then be defined to be: 

I 0 = y- U-l 

This definition for ^ is continuous. The discontinuity has been moved to the first 
derivative. For simple simulations where the voltage across the diode is not changing very 
rapidly compared to the simulation time increment, this definition for Iq will normally work. 
Normally, one would like to have even higher order derivatives continuous to ensure 
numerical stability. This can only truly be done in this case by changing the constitutive 
equation to reflect more characteristics of a physical diode. 

Even if the constitutive law of the diode is changed to make the slope continuous, the 
method outlined above for rotating axes should still be used. This is because most numerical 
methods rely on the partial derivatives of the implicit variables with respect to the input 
variables in the form of a Jacobian Matrix to update the last guess for the input variable. A 
very steep slope results in a Jacobian element being very large and the potential of having 
a floating point overflow when the Jacobian matrix is created or inverted. An overflow can 
also occur when the corrections to the input variables cause the recalculated implicit variable 
to overflow. In general, when the slope of the v/i characteristic has a section with a very 
steep slope, the axes should be rotated so that the maximum slope is minimized. 

Another consideration when defining implicit variables is choosing the magnitude 
correctly. Since an exact solution which results in all the implicit variables being identically 
zero may not be possible due to time constraints or round off error, every iterative scheme 
relies on a method for determining when the implicit variables are close enough to zero. 
One way is to compare the root mean square of the implicit variables with a preset number. 
If this method is used, the order of magnitude of all the implicit variables should be the same 
for the same order of magnitude inputs. Otherwise, certain variables would be allowed to 
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vary more than other variables. For example, one voltage may be known to within a \% 
error while another may be known to within a 0. 1 % error. Of course, if this effect is desired, 
one can easily weight an implicit variable by an arbitrary constant. 

2.2.5 Data Storage : State Variables 

A number of device models require the condition of the device during the last time 
increment be known. This information is conveyed to the model through state variables. 
Examples of states include the voltage and current of a capacitor or inductor, position of 
switches, position of breakers, time since a specific event occurred, and peak values of 
specific variables. One could conceivably use the state variables to store the time history 
of a variable to determine averages or other statistical or spectral properties. 

2.2.6 External Inputs 

External Inputs allow the user to interact with device models. The user can create a 
queue which contains the values an external input takes on at specified times. Uses for 
external inputs include position of switches, control waveforms, reference voltages, input 
waveforms from another program, controlling the configuration of an element. 

2.2.7 External Outputs 

External Outputs (along with External Inputs and Voltage Subnode voltages) are 
variables the user is allowed to monitor during the simulation. Therefore, any quantity that 
a user may be interested in should be defined as an external output variable. The user still 
has the choice as to which external outputs to see, so there is no problem with defining a 
number of output variables. External Output variables can also be stored in files for plotting 
at a later time. 

2.2.8 Integration Techniques 

Constitutive equations for devices often require the integration of a time derivative. 
Any textbook on numerical methods will provide a large selection of integration algorithms 
along with methods of determining their accuracy and stability. For most simulations 
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however, there are three methods that work well. The first is the Euler Forward method 
which is considered an explicit technique since it requires knowldege only of the values of 
the variables during the past time step. 




x=x M +y M dt 



The Euler Forward method is particularly suited for occasions when the differential 
equation has a strong mode that is much slower than the simulation time step. For systems 
with many modes, the Euler Forward method can eliminate the need to add additional implicit 
variables and associated input variables. The drawback of the Euler Forward method is that 
it requires small time steps for fast modes. 

The Euler Backward method is similar to the Euler Forward method with the exception 
that the variables are evaluated at their present values instead of their old values. The Euler 
Backward Method is thus an implicit scheme since it uses present values to specify another 
present value. Since most devices will have several implicit variables to offset input vari- 
ables, there is usually no extra computational burden in using an implicit scheme. 

x =x M + dty 

The Euler Backward method should normally be used where the possibility exists that 
the time increment will be longer than the time constant associated with any of the differential 
equations. 

The implicitly defined Trapezoidal Method combines the Euler Forward and Backward 
methods: 



x=x M 




C y+y a u ) 



Whenever possible, one should use the trapezoidal rule due to its greater accuracy. 
However, when its use requires the addition of input variables to compensate for additional 
implicit variables, the Euler forward method should be considered. 
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There also exists amodified Trapezoidal method where the weights fory and y oW differ 
from 0.5 . Weighting y slightly more helps prevent instabilities when the time step approaches 



the characteristic time constant of the equation. 

2.2.9 Modelling Transfer Functions 

Many devices have components that are modelled as transfer functions using Laplace 
Transforms. A common example has the form: 

Cs+D 

Since y = Xs, the Trapezoidal Method can be modified to provide an Implicit Variable 



7, = A(x -x M ) + f y W +x M ) -C(y - y oU ) - 



y] Diy+yJ) 



This equation can be incorporated in the definition of a more complicated device or can be 
defined seperately as its own device. 

2.2.10 Jacobian Construction 

SEPSIP uses a Jacobian Matrix to determine the corrections to the input variables in 
order to drive the implicit variables to zero. The elements of the Jacobian Matrix are the 
partial derivatives of the implicit variables with respect to all of the input variables. In other 
words, the Jacobian Matrix gives the slopes of the implicit surface in the directions of each 
of the input variables. 
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SEPSIP allows for the Jacobian to be calculated in two different methods. The device 
description can generate the Jacobian, or the network will approximate it. Normally the 
device description should create the Jacobian in the interest of speed and control over how 
it is created. It usually isn’t too difficult to come up with analytic expressions describing 
the partials of the implicit variables. If desired, the network approximates the Jacobian by 
varying the input variables a small amount in either direction, and noting how much the 
implicit variables change. The change in the implicit variable divided by the change in an 
input variable is usually a fair approximation for the partial derivative. 

Another advantage to having the device description generate the Jacobian is that the 
device description doesn’t have to generate the real Jacobian matrix. If a value larger in 
magnitude than the partial derivative is substituted for an element of the Jacobian Matrix, 
the corrections to the input variables will result in the implicit variable being driven to zero 
more slowly. This can be advantageous near discontinuities of the constitutive equations 
and discontinuities in their first derivatives where one may want to retard the transition from 
one side of a discontinuity to the other. 

Replacing an element of a Jacobian Matrix with a value smaller in magnitude than the 
partial derivative will usually result in a numerically unstable simulation. The corrections 
to the input variables will be larger than needed to drive the implicit variable to zero. The 
implicit variable will usually oscillate around zero and grow in magnitude with time. 

2.3 ELEMENT DESCRIPTIONS 

As described earlier, an element is a particular example of a device. A resistor for 
example, could be a device, while R1 1 which is a specific circuit element of type resistor 
having a resistance of 47 ohms would be an element. Elements are differentiated from each 
other by their names, device type, and parameter specification. The first section of the input 
file for SEPSIP contains all of the element definitions and parameter assignments. 
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2.4 NETWORK Description 

The network is described by assigning all of the input variables from all of the elements 
to one and only one subnode. The subnodes in turn, are organized into groups called nodes. 
The purpose of the subnode is to relate the input variables of one element to the input variables 
of another variable. The nature of the relationship is determined by specifying the subnode 
to be either a voltage subnode or a current subnode. The relationship is further modified if 
the subnode is classified as a reference subnode. 

Once the network is specified, system variables can be defined. System variables are 
members of the smallest subset of the input variables from which all of the other input variables 
can be derived from by using the relational properties of the subnodes. For a well defined 
simulation, the number of system variables will equal the total number of implicit variables. 
If the two numbers are not equal, there will either be many solutions to the simulation, or 
none at all. SEPSIP will not conduct a simulation unless the number of system variable does 
indeed equal the total number of implicit variables. 

2.4.1 Voltage Subnodes 

The input variables at a voltage subnode are all set equal to the subnode voltage which 
is a system variable (unless designated a reference subnode). As its name implies, a voltage 
subnode’s purpose is to specify potential values. The potential value need not only be 
voltages however. Temperature, pressure, position, deflection, and Boolean states can also 
be communicated through voltage subnodes. 

2.4.2 Current Subnodes 

Input variables assigned to a current subnode satisfy Kirchhoff’s Current Law (unless 
designated a reference subnode). The first input variable attached to the current subnode 
is set equal to the negative sum of all the remaining input variables attached to the subnode. 
All of the remaining input variables are system variables. The current subnode can therefore 
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be used where input variables must satisfy a conservation law through the network. Forces, 
torques, fluid flow rates and power flow can also be handled in addition to electrical current 
by the current subnode. 

2.5 Reference Subnodes 

To match the number of implicit variables with the number of system variables or to 

ensure there is a unique solution, it may be necessary to designate one or more subnodes a 

reference subnode. If a voltage subnode is specified to be a reference subnode, its value is 

always set to a user selected preset value. The normal usage would be to declare the ground 

voltage subnode to be a reference with zero value. Reference voltage subnodes can also be 

used to simulate power supply voltage busses. 

Reference current subnodes do not satisfy Kirchhoff’s current law. All of the input 

variables attached to them are designated system variables. In a closed system (i.e. one where 

the conservation law applies at every current subnode and in every element through out the 

system), Kirchhoff’s current law at one of the current subnodes will be a linear combination 

of all the other Kirchhoff’s current law equations at the other current subnodes. Therefore, 

the sum of the currents entering the reference subnode will automatically be zero. 

Reference current subnodes also provide a way to leave input variables unterminated. 

This property can be used by device descriptions to increase the number of implicit variables 

used to represent the relations defining the device. Normally, when modelling electrical 

devices, one implicit equation should be provided for each terminal (which corresponds to 

two input variables : one voltage, and one current). This can be seen if we define: 

m = number of terminals (voltage-current pairs) in the system 

n = number of subnodes in the system 

r, = number of reference current subnodes 

r v = number of reference voltage subnodes 

N v = number of system variables due to voltage subnodes 

N, = number of system variables due to current subnodes 

N e = number of implicit equations 

then 
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N v = n - r v 
N, = m - n + Tj 
N e = Nj + N v = m - r v + r ; 

Since electrical devices deal with potential differences, rather than with the absolute 
magnitude of the potential, a reference potential is required to fix one of the nodes. As 
explained above, a reference current subnode is also required to prevent a singular system. 
The total number of implicit variables must therefore equal the number of terminals. 

If a device description requires more implicit variables than it has terminals, extra input 
variables must be provided for the excess implicit variables. These variables should be 
attached to a reference current subnode or to separate voltage subnodes. 

2.6 Conducting the Simulation 

The simulation of the system described by the network description is carried out by 
solving a system of nonlinear equations at each time increment. Each nonlinear equation 
corresponds to the definition of an implicit variable which has a value of zero when the system 
is balanced. To balance the system, an initial guess is first made for all the system variables. 
For the first time step, the user may specify the guess, otherwise the system variables are all 
set to zero. For the remaining time steps, the results of the previous time step are used. The 
total number of independent system variables is considerably smaller than the total number 
of input variables since a number of the input variables are related through the network 
definition. For example, all the input variables attached to a voltage subnode are always 
given the same value. From the system variables, all of the input variables to each of the 
elements is derived from a description of the network topology. Using these values of the 
input variables, the implicit variables are calculated for each of the elements. If the mean 
square value of all the implicit variables are below a specified threshold, then the system is 
considered balanced. If the mean square value is larger than the threshold, then the system 
Jacobian matrix is constructed. The system Jacobian matrix consists of the partial derivatives 
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of the implicit variables with respect to each of the independent system variables. It is 
fabricated by piecing together the Jacobian matrices of all the elements. Inverting and 
multiplying the system Jacobian matrix by the vector containing the implicit variables pro- 
vides a correction to the independent system variables. Once the corrections are subtracted 
from the independent system variables, the implicit variables are recalculated and the 
balancing process continues until the system is balanced. Once balanced, results are printed, 
state variables and external input variables are updated, and the time counter is incremented. 
In this manner, the simulation is stepped through time. 

2.6.1 Setup 

During the setup stage, two arrays of data structures are created to describe the network 
topology in a compact form. The first array describes all of the independent system variables 
and how they relate to the input variables of the individual elements. The second array 
keeps track of which implicit variable belongs to which element. 

Each data structure for the system variable array consists of three subarrays. The 
number of entries in all three subarrays is equal to the number of input variables associated 
with the system variable. For a non-reference voltage subnode, all of the input variables 
attached to it will be associated with one system variable and will therefore each have entries 
in the three subarrays. A reference voltage subnode has a specified value and therefore is 
not associated with any of the system variables. For a reference current subnode, all of the 
input variables attached to it are separate system variables whose corresponding subarrays 
will contain only one entry. A non-reference current subnode’s first input variable is set 
equal to the negative sum of the remaining input variables. Each of the remaining input 
variables is associated with one system variable whose subarrays have two elements: The 
first corresponding to the first input variable; and the second corresponding to the remaining 
input variable. 
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The first subarray for each system variable data structure contains integer offsets to 
the array of elements. The second subarray contains integer offsets to the input variable list 
within the element description. The third subarray contains a multiplier that is used in 
constructing the system Jacobian matrix. Normally this multiplier has a value of 1.0, but 
for the special case of a system variable corresponding to an input variable attached to a 
non-reference current subnode, the first entry has a value of -1 .0 to account for the fact that 
the first variable associated with a current subnode is the negative sum of the remaining 
variables. 

The data structures for the implicit variable structure array contain only two integer 
offsets. The first is an offset for the array of elements and the second is the offset in the 
array of implicit variables for the element. In this manner, all of the implicit variables can 
easily be referenced. 

The setup section also creates an implicit variable cross-reference array in the 
description of each element that specifies which entry in the implicit variable structure array 
to which each of the implicit variables of the element corresponds. 

2.6.2 Initialization 

Before the simulation starts, all of the input variables, state variables, and external 
input variables are initialized. The initial values for the state variables are actually applied 
to the time increment immediately before the start of the simulation (old state variables). 
The input variables are initialized in a two step process. First, an array of system input 
variables is initialized. Then from the network description, the input variables for all of the 
elements are derived. If a variable is not explicitly initialized by the user, it is set to zero. 

2.6.3 Updating External Inputs 

The external input variables are updated at each time increment by scanning the 
external input queue for variable changes that occur before the present system time. All of 
the external input variables scheduled for a change in value are then updated. 
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2.6.4 Balancing the System 



The process of finding a set of input variables that simultaneously satisfies all the 
network equations and all the implicit equations of the elements is known as balancing the 
system. The procedure involves calculating the implicit variables, constructing a system 
Jacobian matrix, calculating corrections to the input variables, and repeating the process 
until the implicit variables are within tolerable limits of zero. 

2.6.4. 1 Calculating Implicit Variables 

The first step in balancing the system is calculating the implicit variables. The 
functions describing each of the elements are called one at a time and provided with the 
appropriate input variables. These functions use the input variables along with the external 
input variables and the state variables calculated in the previous time step to generate the 
implicit variables. 

Once all of the implicit variables have been calculated, they are assembled into an 
implict variable array in the order specified in the implicit variable structure array con- 
structed in the setup phase. The mean square value of all the implicit variables is also 
calculated and if its magnitude is smaller than apredefined amount, the sytem is considered 
balanced and the program jumps to printing the results out. 

2.6.4.2 Manufacturing System Jacobian Matrix 

The system Jacobian matrix is generated by piecing together the Jacobian matrices 
for each of the elements. The elemental Jacobian matrix can be generated by the function 
which also produces the implicit variables, or it can be approximated numerically. The 
function that returns the implicit variables also returns a flag indicating whether or not the 
Jacobian matrix was calculated. If the matrix was not constructed, it is manufactured by 
varying each of the input variables slightly and approximating the partial derivatives by 
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dividing the differences between the resulting implicit variables by the differences of the 
input variables. The percentage change and the minimum change in the input variables 
can be specified by the operator. 

The system Jacobian Matrix is constructed one column at a time. Each column has 
its associated structure in the input variable structure array that specifies which elements 
and input variables contribute to that column. Knowing the element and the input variable 
is enough knowledge to extract the appropriate column from the element Jacobian matrix. 
Which row in the system Jacobian matrix to insert each of the entries of the element Jacobian 
column is provided by the implicit variable cross reference array. By stepping through 
each of the structures of the input variable structure array, the entire system Jacobian matrix 
can be constructed. 

One result of separating the creation of the system Jacobian matrix from the element 
Jacobian matrices is that extra work is done in creating columns in the element Jacobian 
matrices that do not contribute anything to the System Jacobian. This arises whenever an 
input variable is attached to a reference voltage subnode. Since a reference voltage node 
always has a constant voltage, it does not contribute a system variable. 
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2.6.4.3 Calculating Variable Corrections via Newton-Raphson 

Once the system Jacobian matrix J and the implicit variable vector i are created, 

corrections to the input variable vector* can be calculated via the Newton-Raphson method. 
The matrix equation Jx = 7 is solved using Gaussian Elimination with partial pivoting. If 
the Jacobian Matrix is singular, the Gaussian Elimination will fail due to the inability to 
get a non-zero number in the pivot element. If this occurs, the simulation halts with an 
error message. 

After the corrections have been applied to the input variable vector, the implicit 
variables are recalculated and the process continues until the mean error of the implict 
variables is within tolerable limits of zero, or until a predetermined number of iterations 
have been made. If the iteration limit is reached, the simulation has failed to converge on 
a solution is halted with an error message. 

2.6.5 Printing Results 

Since the operator can specify a printing time increment different from the simulation 
time increment, a test is made to determine whether or not any results should be printed. If 
the test is successful, all of the variables designated to be displayed in the simulation section 
of the input file are printed to the screen, or to a file if one was specified by the operator. 

2.6.6 Updating State Variables and Time Counter 

The state variables are produced by the function that also calculates the implicit 
variables. Once the system is balanced, these state variables are moved to another array 
called the old state variable array which can be used during the next time increment. 

The time variable is also updated by adding the specified time increment. If the time 
variable exceeds the maximum time of the simulation, the simulation is terminated and 
control returns back to the main menu of SEPSIP. 
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2.6.7 Potential Problems 



2.6.7.1 Numerical Instability 

The Newton-Raphson method is only guaranteed to converge on a solution if the 
initial guess is sufficiently close to the solution. Unfortunately, it is very difficult to 
determine how close, ’sufficiently close’ is. If the time increment is small enough, the 
input variables should not change appreciably. Hence using the results of the previous 
time increment as a first guess usually produces good results. There are two occasions 
however, when this may not hold. First, during the initial balancing of the system, the 
initial guesses are provided by the user. If these guesses are not sufficiently close to the 
solution, the system will not converge. Another situation that may occur during the 
execution of a simulation is that a discrete event may occur that changes the configuration. 
The solution to the new configuration may not be sufficiently close to the solution of the 
old configuration to guarantee stability. 

2.6.72 Singular Jacobian Matrix 

The simulation can also fail if the System Jacobian Matrix is singular and therefore 
uninvertable. This can occur if the network is defined poorly or if a discrete event results 
in a poorly defined network. Systems incorporating switches or breakers are particularly 
susceptible to this problem. (If two switches are connected in series and both opened, their 
implicit variables would be set equal to the terminal currents. The current subnode con- 
necting the two switches would further equate the two attached currents and thereby 
overspecify them. Furthermore, the voltage of the connecting voltage subnode would not 
be implicitly defined anywhere.) 

2.6.7.3 Non-Unique Solutions 

In nonlinear systems, it is often possible for more than one set of input variables to 
satisfy all of the constitutive relations and network equations. For these systems, it is very 
imponant to provide the solution with the best possible intitial guesses in order for the 
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system to converge on the desired solution. Once the simulation has started, using the 
results of the previous time step as an initial guess should normally result in convergence 
to the proper solution. This method for determing the initial input variables can still fail 
during time steps in which system reconfigurations have taken place that result in certain 
variables changing considerably over the one time increment. 
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CHAPTER 3 



SEPSIP 

SHIPBOARD ELECTRICAL PLANT 
SIMULATION PROGRAM 

3.1 Introduction 

SEPSIP is a simulation program optimized for solving lumped parameter systems with 
elements that are described by nonlinear constitutive equations. The program is written in 
the C programming language and is presently running under the UNIX operating system on 
Digital Equipment Corporation VAX Workstation II and VAX Workstation 2000 computers. 
The files are located in the sepsip subdirectory of the 13.41 1 Course Locker of MIT’s Project 
ATHENA. SEPSIP should be easily adapted to other computers and operating systems since 
a minimum of machine specific routines have been used. 

Running a simulation with SEPSIP is a three stage process. First, an input file must be 
created with a text editor such as EMACS. The simulation is then carried out by the SEPSIP 
program with the results printed to an output file. Finally, the output file is printed directly 
out or sent to a plotting program such as NORPLOT for viewing. 

This chapter describes how to create an input file and lists the commands available 
when executing SEPSIP. Actual examples of input files can be found in Chapter 5. 

3.2 Data Entry Conventions 

Much effort has been made to ease the task of creating the input files for SEPSIP. The 
input files are very loosely structured in the sense that data need not be entered in specific 
columns, comments can be inserted anywhere, other files can be referenced through "include" 
statements, and to a certain degree, the order of lines is not rigid. 
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3.2.1 Acceptable Characters 

Virtually all of the printing ASCII characters can be used in naming elements, vari- 
ables, nodes and subnodes. To prevent confusing the program, in addition to "white" 
characters (spaces, tabs, newlines) the following characters should be avoided entirely: 

Additionally, the following characters should not be used for the first character: 

! # + - 0 1 2 3 4 5 6 7 8 9 

These characters should not be used for the last character 

.\ 

3.2.2 Reserved Names 

The following keywords should not be used for naming elements, variables, nodes or 
subnodes: 

end 

external 

include 

initial 

node 

simulation 

All other keywords can be used, but for clarity, should be avoided. 

3.2.3 Specifying Variables and Subnodes 

Variables are specified in the following format: 

element : variable 

The colon is used to delimit the element name from the variable name. Tabs and / or spaces 
between the element name and the colon and between the variable name and colon are 
optional. 

Subnodes are similarly described: 

node : subnode 
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3.2.4 Numerical Entries 



The following formats for entering numbers are valid: 



123 

-123.456 

123e-4 

+123E3 



integer 
floating point 
exponential 
exponential 



3.2.5 White Characters 

Spaces and tabs are used to separate data elements. Any number and combination of 
spaces and tabs may be used. A data line is terminated with a "newline" character (also 
known as a carriage return). 

3.2.6 Continuation Lines 

In general, each line of the input file must be shorter than 80 characters. This usually 
is not a problem since there isn’t very much information that must be included on one data 
line. Continuation lines are allowed however, in the Network Description section. This 
section requires the grouping of a number of variables together. It is therefore quite likely 
that more than 80 characters would be required. Consequently, for this section alone, a line 
can be terminated with \ or ... to indicate the data continues on the following line. 

3.2.7 Case Sensitivity 

Keywords are case insensitive (Both upper and lower case letters accepted), all other 
entries are case sensitive. 

3.2.8 Comment Lines 

Any Line beginning with a ! or # is ignored. Hence comment lines can be inserted 
anywhere within the file by preceding them with ! or #. Blank lines are also ignored. 
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3.3 Input File Generation 

SEPSIP requires an input file to describe the simulation. This file consists of four 
sections: Element Description, Network Description, Initialization, and Simulation 
Description. The input file can be created or edited by any text editor. 



Figure 3.3-1 Sample SEPSIP Input File 

! SEPSIP Input File 

I 

! Element Description 
device_l elm_la 
par_l 1 . 0 
par_2 3 
end 

device_2 elm_2 
par_l 2.0e-6 
end 

* Network Description 
NETWORK 

i 

NODE gnd 

rvrvolt =0.0= elm_la : vO = elm_2:v0 
ri : current = elm_la : iO = elm_2 : iO 
end 

NODE A 

v: volt = elm la:vl = elm 2:vl 
i: current = elm_la:il = elm_2:il 
end 

! Initialization Section 
INITIALIZE 

elm_la : state_l 37 
elm_la : vl 32.2 

end 

NODE VOLTAGE INITIALIZATION 
A : volt 100 . 0 
end 

EXTERNAL INPUTS INITIALIZATION 
elm_2 : ext_in 24 
end 

! Simulation Section 

SIMULATION 

Display 

elm_la : ext_out_l 

A : volt 

end 

TIM2_STEP 1.0e-3 
PRINT_STEP 5 . 0e~3 
TMIN 0 . 0 

TMAX 1.0 
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3.3.1 Organization — Using INCLUDE Files 

A common problem among many simulation programs is the requirement that all the 
necessary information be contained in one file. For large simulations, this results in long 
input files that are difficult to manage and edit. SEPSIP addresses this problem with the 
include keyword. Outside any data block (A data block begins with a keyword and con- 
cludes with the end statement) the keyword include followed by a filename results in the 
insertion of the contents of the ’included’ file at the location of the include keyword. 
’Included’ files may also contain include keywords. This feature allows one to organize 
the input file in a number of ways. Figure 3. 3. 1-1 shows one method of using the include 
keyword. 

Figure 3.3. 1-1 Using the INCLUDE Keyword 



! t.all 

! t . elm contains the element descriptions 
include t.elm 

! t.net contains the network description 
include t.net 

! t . init contains the initialization section 
include t . init 

! t.sim contains the simulation section 
include t.sim 



3.3.2 ELEMENT Description 

The first section of the SEPSIP input file is the ELEMENT Description. This section 
defines the elements and specifies all of the parameters for the elements. A data block for 
defining an element has the following format: 

Figure 3.3.2-1 ELEMENT Description 

element_name device_name 
parameter value 
parameter value 
parameter value 
end 

Eiemenl_name can be any single word as long as it conforms to the conventions of 
Section 3.2. Device_name is the name of the particular device. A list of available devices 
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can be obtained by running SEPSIP and entering dd at the first prompt. To obtain more 
information on a particular device (including a list of parameters) enter dD device_name. 
A listing of all the device descriptions can be written to a file by entering dw filename. 

When defining an element, all of the parameters must be specified. An error is gen- 
erated whenever an en d statement is reached and all of the parameters have not been provided 
with values. 

Elements can be defined that are not used in the network description. This allows for 
the creation of a ’junk box’ of parts that can be used when building and modifying the 
network description. A warning will be generated when an element is defined but not used. 
It is also a good idea not to have too many ’spare elements’ since execution time will slow 
down somewhat. 

The Element Description section ends when the keyword network is encountered. 

3.3.3 NETWORK Description 

The keyword network signals the beginning of the network description. This section 
consists of data blocks that describe each of the network nodes. All of the lines within the 
data block (except the first and last) describe one subnode. Each data block has the format: 

Figure 3.3.3-1 NETWORK Description 
NODE node_name 

subnode_ind : subnode_name = elm : var = elm : var 
subnode_ind : subnode_name = elm : var = elm : var 
END 

Node_name and subnode_name once again, can be any word following the con- 
ventions of section 3.2. Node_name must also be distinct from any of the element names 
as well. Subnode_ind specifies the type of subnode and consists of up to three characters, 
two of which are optional. The format of the subnode_ind is: 

Reference Indicator : [optional] An r as the first character of subnod e_ind 

specifies that subnode to be a reference subnode. 



- 49 - 



Subnode Type Indicator : [mandatory] The next character must be either 
an i or a v to specify the subnode as either a current or voltage subnode. 

Grouping Indicator : [optional] Subnode_ind can end with a digit greater 
than zero to specify the number of consecutive subnodes that should be created. 

If this digit is greater than one, then that number of consecutive subnodes are 
created. The first subnode will have subnode_name as its name and include all 
of the specified variables. The following subnodes will use subnode_name 
appended by _b , _c , etc. and use the next consecutive input variable for each 
of the elements. This feature allows one to connect together ’multiple conductor 
cables’ with one single entry. Typically, this will be a 3 for three phase systems. 
Subnodes can also be designated a reference subnode in the simulation section of the 
input file. For clarity it is better to define all of the reference subnodes in the NETWORK 
section. 

In the special case of a Reference Voltage Subnode, the reference voltage may be 
specified immediately following the subnode name as demonstrated in figure 3.3. 3-2. This 
reference voltage value however, can be overwritten by an entry in the REFERENCE block 
of the SIMULATION section of the input file. If a reference voltage subnode's voltage is 
not specified either in the NETWORK or the SIMULATION section, it is set to a value of 
zero. 
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Figure 3.3.3-2 NETWORK Description Example 



I 

! t.net 

! Norbert H. Doerry 12 March 1989 

i 

NETWORK 

! Th© following nod© has both reference voltage 
! and current subnodes 
i 

NODE gnd 

rv:v = gen : vOn = load : vOn = meter : vO 

ri : i = genriOn = load : iOn 

end 

t 

* The next node shows how to specify each phase 
! independently 

i 

NODE A 

v : v_a = gen:vOa = sw:vOa = meter :vl 
v : v__b = gen : vOb = sw : vOb 
v:v_c = gen:vOc = swivOc 
i : i_a = genriOa = sw:iOa 
i:i_b = genriOb = sw:iOb 
i:i c = gen:iOc = sw : iOc 
end 
i 

! The next node shows how to use the grouping indicator 

t 

NODE B 

v3 : v = sw : via = load : vOa 
i3:i = sw:ila = load:iOa 
end 

i 

! The next node shows how to use reference voltages to set 
! operating points 
i 

NODE GEN_REFS 

rvrfreq = 60.0 = gen:freq 
rv : Vmag = 100.0 = gen : Vmag 
end 

3.3.4 INITIALIZATION Description 

The Initialization Section is the only optional sectional in the input file. If a variable 

is not explicitly initialized, its value is set to zero. Therefore, one only needs to initialize 

the non-zero variables. The following types of variables may be initialized: 

Input Variables attached to Current Nodes 
Node Voltages 
State Variables 
External Input Variables 

Input Variables attached to Voltage Nodes may also be initialized, but the Node Voltage 
initialization will take precedence and overwrite the Input Variable initialization. 
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The Initialization Section is composed of three subsections that may be entered in any 
order, or omitted if not used. These three subsections are: INITIALIZE, EXTERNAL 
[INPUTS INITIALIZATION], NODE VOLTAGE [INITIALIZATION], 

3.3.4. 1 INITIALIZE 

The INITIALIZE subsection is used to initialize input and state variables for any 
element. The format for this subsection is: 

Figure 3.3.4. 1-1 INITIALIZE subsection 



INITIALIZE 

element_name : variable_name value 
element_name : variable_name value 
element_name : variable_name value 
end 

Variable_name can be the name of either a state variable or the name of an input 
variable. For state variables, value becomes the old state variable for the first time 
increment. For input variables, value is the first guess used for input variables attached 
to current subnodes. If an input variable is attached to a voltage subnode, value is ignored. 

The INITIALIZE subsection ends when the keyword end is encountered. 

3.3.4.2 EXTERNAL [INPUTS INITIALIZATION] 

The External Inputs Initialization subsection begins with either the keywords 
EXTERNAL or EXTERNAL INPUTS INITIALIZATION. Its purpose is to provide 
the default values for the external input variables. The default values set in this subsection 
can be overwritten by entries in the EXTERNAL INPUTS subsection of the SIMU- 
LATION section. 

Figure 3.3.4.2-1 EXTERNAL INPUTS INITIALIZATION Subsection 

EXTERNAL INPUTS INITIALIZATION 

element_name : external_input_name value 
element_name : external_input_name value 
e!ement_name : external_input_name value 
end 
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3.3.4.3 NODE VOLTAGE [INITIALIZATION] 



The Node Voltage Initialization subsection begins with either the keywords NODE 
VOLTAGE or NODE VOLTAGE INITIALIZATION. Its purpose is to provide the 
initial guesses for all the input variables attached to a voltage subnode. The subsection 
ends when the keyword END is encountered. 

Figure 3.3.4.3-1 NODE VOLTAGE INITIALIZATION Subsection 

NODE VOLTAGE INITIALIZATION 
node_name : subnode_name value 
node_name : subnode_name value 
node_name : subnode_name value 
end 



3.3.5 SIMULATION Description 

The SIMULATION section begins with the keyword SIMULATION and continues 
until the end of the input file is reached. The Simulation section details the manner in which 
a simulation is carried out. The following keywords can be included in the simulation 



section: 

CONVERGE 

DELTA 

DELTAMIN 

DISPLAY 

EXTERNAL INPUTS 

MAX_ITERATION 

PRINTSTEP 

REFERENCE 

TIME_STEP 

TMAX 

TMIN 



3.3.5. 1 CONVERGE 



Format: CONVERGE value 
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Value is the maximum mean square error of all the implicit variables allowed for a 
balanced system. Note that since CONVERGE is applied to the average of the implicit 
variables, any single implicit variable may have a square magnitude considerably larger 
than value. 

3.3.5 .2 DELTA 

Format: DELTA value 

Value is the fractional amount an input variable is changed when the network cal- 
culates the Jacobian matrix of an element using the secant method. The input variable are 
multiplied by (1 + value) and (1 - value) and if the difference between the two resulting 
numbers is greater than twice DELTA_MIN, they are used to recalculate the implicit 
variables. The differences between the implicit variables divided by the differences 
between the two values of the input variables provide the column of the element Jacobian 
matrix corresponding to that input variable. DELTA is only significant if at least one of 
the elements used does not calculate the Jacobian matrix within its defining function. 

3.3.5 .3 DELTA MIN 

Format: DELTA_MIN value 

DELTA_MIN is used in conjunction with DELTA. If when calculating an element 
Jacobian matrix by the secant method, the difference between the two offset input variables 
is greater than twice DELTA_MIN, then DELTA_MIN is added and subtracted from the 
input variable for the purpose of calculating the partial derivative. 

3.3.5.4 DISPLAY 

Format: 

DISPLAY 

element_name : external_output_variable_name 
element_name : external_output_variable_name 
node_name : voItage_subnode_name 
node_name : voltage_subnode_name 
end 
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DISPLAY specifies which variables are written to the screen or to the specified file 
when the simulation is conducted. Only external output variables and voltage subnodes 
can be displayed. PRINT_STEP specifies how often the variables are displayed. 

3.3.5 .5 EXTERNAL INPUTS 

Format: 

EXTERNAL INPUT 

element_name : external_input_variable_name value time 
element_name : external_input_variable_name value time 
element_name : external_input_variable_name value time 
end 

EXTERNAL INPL T T provides the information needed to produce an external input 
queue that tells the simulation when the value of an external input value should be changed. 
Time is the simulation time at which the specified external input variable should be set to 
value. 

3.3.5.6 MAX ITERATION 

Format: MAX_ITERATION value 

Value is the maximum number of iterations that are performed during any single 
time interval in an attempt to balance the system. If the system can not be balanced in 
fewer iterations, an error message is printed and the simulation is halted. 

3.3.5.7 PRINT STEP 

Format: PRINT_STEP value 

Value specifies how often the variables listed in DISPLAY are printed. 

3.3.5 .8 REFERENCE 

Format: 

REFERENCE 

v : node_name : voltage_subnode_name value 
v : node_name : voltage_subnode_name value 
i : node_name : current_subnode_name 
end 

The REFERENCE subsection can declare subnodes defined in the NETWORK 
section to be reference subnodes (whether or not they were defined previously to be ref- 
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erence subnodes in the NETWORK section). Since the Simulation section may be 
modified after an input file has been loaded into SEPSIP, this section can also be used to 
vary the voltage of a reference voltage subnode between simulations. Value overrides the 
default value provided in the NETWORK description section. 

3.3.5.9 TIME STEP 

Format: TIME_STEP value 

Value is the time step used in calculating the simulation. 

3.3.5.10 TMIN 

Format: TMIN value 

Value is the initial value that the time counter is initialized to. After each time the 
system is balanced, the time counter is incremented by the TIME_STEP. 

3.3.5.11 TMAX 

Format: TMAX value 

Value is the largest value that the time counter can take on. If the time counter 
exceeds value, the simulation is successfully concluded and control passes back to the 
main menu of SEPSIP. 
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3.4 Running the Simulation 

3.4.1 Starting SEPSIP 

The method for executing the SEPSIP program depends on the operating system being 
used. On MIT's Project ATHENA, the following procedures should be used: 

athena% attach 13.411 

athena% /mit/13.411/sepsip/sepsip 

or 

athena% attach 13.411 

athena% /mit/13.411/sepsip/sepsip input_filename 

The program starts by printing a welcome message followed by the version number 
and date. If input_filename is specified, it is loaded. Any errors detected are listed as well 
as the opening of any include files. SEPSIP then enters the main menu and prompts for the 
first command. 

3.4.2 Command Entry Conventions 
3.4.2. 1 SEPSIP Menus 

SEPSIP is a menu oriented program consisting of one main menu and several sub- 
menus. The menus are organized in two columns: The first contains single characters 
used to execute the commands listed in the second column. After the menu is displayed, 
the user can enter the character corresponding to the desired command followed by a 
carriage return. 

Several of the menus will have a variable number of options depending on the state 
of the simulation. If a valid input file has not been loaded for example, the main menu 
will not have the Conduct Simulation or Continue commands available since they would 
be meaningless. 

The Conduct Simulation (option s) and Continue (option c) commands from the 
main menu can be followed by an output filename. If a filename is specified, output from 
the simulation is redirected from the screen to the specified file. 
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3.42.2 Concatenating Commands 

SEPSIP allows one to execute an option in a submenu directly from the main menu 
by entering the character that executes the submenu followed by the desired character from 
that submenu. These two characters can be separated by spaces or tabs and can also be 
followed by whatever input text is required by the selected command. 

Examples: 

dd (displays device summary) 

fc /mit/yourname (changes the working directory) 

u p t.plot (executes plotting program with argument t.plot) 

3.42.3 Input Filename Specification 

In several of the options, the user is prompted for an input filename. Any existing 
file can be entered, including a path specification if required. If a default filename is 
offered, a carriage return will select the default. If no default filename is presented, a 
carriage return will terminate the command. Should SEPSIP be unable to open the file, 
another filename is prompted for. Entering ? as a filename results in the listing of the 
current directory. A q terminates the command. 

3.42.4 Output Filename Specification 

An Output filename can be specified for several commands. Any filename recognized 
as legal by the operating system may be used. If a default filename is offered, a carriage 
return will select the default. If no default filename is presented, or if the filename stdout 
is entered, a carriage return will result in the file being listed on the screen. If for some 
reason, SEPSIP is unable to open the file, another filename is prompted for. Entering ? 
as a filename results in the listing of the current directory. A q terminates the command. 
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3.4.3 Command Summary 



This section lists all the commands available in SEPSIP. A more detailed explanation 
of the commands is provided in the following sections. 



c [file] Continue simulation 



d 

dc [dir] 

dd 

dD 

de 

dE 

dn 

dq 

dw [file] 



Switch to Display Data menu 
Change Working Directory 
Display Device Summary 
Display Device Data 
Display Element Summary 
Display Element Data 
Display Network Summary 
Quit Display Data menu 
Write Device Data File 



e 

ed 

eda 

edd 

edq 

ej 

eq 

er 

et 



Switch to Edit Simulation Parameters Menu 
Switch to Edit Display Variable list Menu 
Add Variable to Display Variable list 
Delete Variable from Display Variable list 
Quit Edit Display Variable list Menu 
Edit Jacobian Parameters 
Quit Edit Simulation Parameters Menu 
Edit Reference Voltage Subnode Voltages 
Edit Time Parameters 



f Switch to File Options Menu 

fd [file] Dump Simulation State 

fi [file] Save INITIALIZATION Section 

fl [file] Load INITIALIZATION Section 

fq Quit File Options Menu 

fs [file] Save SIMULATION Section 

fS [file] Load SIMULATION Section 

q Quit : Terminate SEPSIP program 

s [file] Conduct Simulation 

u Switch to Utility Menu 

ue [file] Execute EMACS text editor 

up [file] Execute Norplot Plotting Package 

u? Display Directory 

u% [cmd] Execute System Command 

u+ Perform Screendump to the default printer 



3.4.4 Main Menu 



This section describes all the commands available in SEPSIP. For each command, 
the format for executing it from the main menu is presented along with a description of the 
command. For executing a command within a submenu, the first letter should be omitted. 
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3.4.4. 1 c Continue 



Format: 

c 

c filename 



The Continue command is only available if a valid input file has been loaded and a 
simulation has already been conducted. Its purpose is to allow the simulation to continue 
without reinitializing any of the variables. To use this command though, tmax must be 
changed to a higher value that corresponds to the new desired ending time. 

If Continue is invoked without a filename, the results of the simulation are displayed 
on the screen, otherwise the results are written to the specified file. 



3.4.4.2 d Display Data 

Format: 

d 

d command 



Display Data presents a submenu with the following options: 



3.4.4.2.1 d c Change Working Directory 



Format: 

dc 

dc directory 



This command changes the working directory for specifying both input and output 
files. If a directory' name is not specified on the command line, the user is prompted for 
one. For systems operating under the UNIX operating system, this is the only method 
available since a cd command executed as a system call will not work. 1 



3.4.4.1.2 d d Display Device Summary 

Format: 

dd 



Display Device Summary lists the names of all the available devices. 



1 Under UNIX, when a system call is made from a program, a new shell is created for the 
specified command to be executed in. When the command terminates, the shell disappears. 
Therefore, if a cd command is executed, it w r ill change the directory in the new shell and 
then terminate. The new shell will immediately disappear and control will pass back to the 
old shell whose working directory was never altered. 
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3.4.4.2.3 d D Display Device Data 



Format: 

dD 

dD device name 



Display Device Data provides detailed information about a particular device. If 
device_name is not specified, it will be prompted for. All of the variable names associated 
with device name are listed. 



3.4.4.2.4 d e Display Element Summary 

Format: 

de 



Display Element Summary is only available if a valid input file has been loaded. 
All of the defined elements are listed along with which devices they are associated with. 
If an element is not used in the network description, its entry is appended with 

"*** Not Used ***". 
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3.4.4.2.5 d E Display Element Data 



Format: 

dE 

dE element name 



Display Element Data is only available if a valid input file has been loaded. If 
element_name is not specified, it is prompted for. All of the variables associated with 
element name and their values are listed. 



3.4.4.2.6 d n Display Network Summary 

Format: 

dn 



Display Network Summary is only available if a valid input file has been loaded. 
For each node, the constitutive subnodes and their attached variables are displayed. After 
all the data for a node has been presented, the user is prompted to enter a carriage return 
to continue. If a q is entered instead, the command is terminated. A b will result in the 
previous node being listed. 



3.4.4.2.7 d q Quit 

Format: 

dq 



Quit returns control back to the main menu. 
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3.4.4.2.8 d w Write Device Data File 



Format: 

dw 

dw device data filename 



Write Device Data File prints out all of the device data for all of the devices. If 
device_data_filename is not specified, the user is prompted for it. For a particular device, 
this command presents all the same information as Display Device Data 



3.4.4.3 e Edit Simulation Parameters 

Format: 

e 

e command 



Edit Simulation Parameters presents a submenu for editing data from the simulation 
section of the input file. This command is only available if a valid input file has been 
loaded. 
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3.4.4.3.1 e d Edit Display Variables 



Format: 

ed 

ed command 



Edit Display Variables presents a submenu for adding and subtracting variables 
from the display variable list. In addition to the submenu, all of the variables presently 
on the list are displayed. The values of the variables on this list are displayed during the 
simulation in increments of print_step as set in the input file or by Edit Time Parameters. 



3.4.4.3.1.1 a Add Display Variable 

Format: 

eda 

eda element_name : external_output_variable 
eda element_name : external_input_variable 
eda node_name : voltage_subnode_name 



Add Display Variable adds a variable to the display variable list. External Input, 
External Output, and Voltage Subnodes may all be specified. 
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3.4.4.3.1.2 d Delete Display Variable 



Format: 

edd 

edd element_name : e\ternal_output_variable 
edd element_name : external_input_variable 
edd node_name : voltage_subnode_name 



Delete Display Variable deletes a variable presently on the display variable list. 



3.4.4.3.1.3q Quit 

Format: 

edq 



Quit returns to the Edit Simulation Parameters submenu 
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3.4.4.3.2 e j Edit Jacobian Parameters 



Format: 

edj 



Edit Jacobian Parameters allows the user to change the following simulation 
parameters: 

CONVERGE 
MAX ITERATION 
DELTA 
DELTAMIN 

The user is prompted to enter a new value for each of these parameters. If a carriage 
return alone is entered, the default value is used. If a q is entered, the command is 
terminated. A b allows the previous variable to be changed. 



3.4.4.3.3 e q Quit 

Format: 

eq 



Quit returns control back to the main menu. 
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3.4.4.3.4 e r Edit Reference Voltage Subnode 



Format: 

er 

er node_name : reference_voltage_subnode_name 
er node_name : reference_voltage_subnode_name value 



Edit Reference Voltage Subnode allows the user to change the value a reference 
voltage subnode is set to. If the command is executed without specifying the subnode, a 
list of the reference voltage subnodes is provided before the user is prompted for the 
subnode name. 



3.4.4.3.S e t Edit Time Parameters 

Format: 

et 



Edit Time Parameters allows the user to change the following simulation 
parameters: 

TIMESTEP 

TMIN 

TMAX 

PRLNTSTEP 

The user is prompted to enter a new value for each of these parameters. If a carriage 
return alone is entered, the default value is used. If a q is entered, the command is 
terminated. A b allows the previous variable to be changed. 
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3.4.4.4 f File Options 



Format: 

f 

f command 



File Options presents a submenu for reading and writing several different types of 

files. 



3.4.4.4.1 f d Dump Simulation State 

Format: 

fd 

fd filename 



Dump Simulation State prints to a file, the entire state of the simulation. Every 
variable for every element is listed along with the system Jacobian matrix and associated 
variables. While the file produced by this command may become very large, it is often 
the only way to find the cause of a simulation’s failure to converge. 
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3A4.4.2 f i Save INITIALIZATION Section 



Format: 

fi 

fi filename 



Save INITIALIZATION Section writes to a file, all of the current values of the 
input variables, state variables, external input variables, and voltage subnode volt- 
ages. This file can then be included in another input file to specify a starting point for 
further simulations. This command allows one to run a simulation until steady state has 
been achieved, save the initialization section, then conduct simulations to study the effects 
of a disturbance on the steady state solution. 



3.4.4.4.3 f I Load INITIALIZATION Section 

Format: 

n 

fi filename 



Load INHTIALIZATION Section loads from a file, the initial values of the input 
variables, state variables, external input variables, and voltage subnode voltages. 
The file must conform to the format specified in section 3.3.4. The easiest way to create 
this file is to use or edit a file created by the Save INITIALIZATION Section command. 
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3.4.4.4.4 f s Save SIMULATION Section 



Format: 

fs 

fs filename 



Save SIMULATION Section writes to a file, the SIMULATION Description 
section of the input file as described in section 3.3.5. If stdout is used as a filename, the 
SIMULATION Description section is listed on the screen. This is a fast way of seeing 
all the simulation variables at once. 



3.4.4.4.5 f S Load SIMULATION Section 

Format: 

fS 

fS filename 



Load SIMULATION Section reads from a file, the SIMULATION Description 
section of the input file as described in section 3.3.5. Files created with the Save SIM- 
ULATION Section command can be directly loaded with this command. 



3.4.4.S q Quit 

Format: 

q 



Quit results in the termination of SEPSIP. Control is passed back to the operating 
system. 
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3.4.4.6 s Conduct Simulation 



Format: 

s 

s filename 



Conduct Simulation starts the simulation. If a filename is not specified, the values 
of all of the variables on the display variables list are printed to the screen. If a filename 
is specified, the values of the variables are printed to the designated file. A period (.) is 
printed on the screen every time a line is printed to the file. This allows one to see that the 
simulation is actually proceeding and the program is not stuck in an infinite loop. 



3.4.4.7u Utilities 

Format: 

u 

u command 



Utilities presents a submenu that is fundamentally different from the other menus in 
that it is entirely user defined. The file sepsip_util.menu contains all the data required to 
create and execute a menu. Appendix D describes how to edit this file to add or delete 
menu items. The following commands are presently implemented on MIT's Project 
ATHENA. 
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3.4.4.7.1 u e Editor -> emacs 



Format: 

ue 

ue filename 



This command executes the emacs text editor. 



3.4.4.7.2 u p Plotting -> Norplot 

Format: 

up 

up filename 



Norplot is a simple X-Window oriented plotting package that allows for the input 
file to have multiple columns of data. 



3.4.4.7.3 u ? List Directory 

Format: 

u? 

u? directorv_path 



This command lists the current directory or the directory' specified. 



3.4.4.7.4 u % Execute System Command 



Format: 

u% 

u% command 



This command allows for any system command to be executed (with the exception 
of cd in UNIX). 



3.4.4.7.S u + Screendump to default printer 

Format: 

u+ 

u+ -h 

u+ -Pprinter 
u+ -Pprinter -h 



This commmand produces hardcopy of an X-Window on the default printer or on 
the printer specified by the -P option. The -h option suppresses the printing of the header 
page. 
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3.5 Special Considerations 
3.5.1 Designing the Network 



Intelligently designing the network can improve the quality and numerical stability of 
the simulations performed. One must always remember that the mathematical repre- 
sentations for devices like inductors and capacitors are only idealized approximations of 
the physical devices. Consequently, while we can physically stop the current in an inductor 
instantaneously, a simulation using an ideal inductor will fail because the voltage drop across 
it will become infinite. Here are a few techniques that can eliminate many of the problems 
of this sort: 

* All inductors should have a parallel resistance to provide a path for the flyback current to 

flow and thereby limit the maximum voltage drop across the inductor 

* Similarly, all capacitors should have a series resistance to limit the maximum current flow. 

* A node connecting two switches in series should also have a resistance going to ground 

(or across one of the switches) to prevent a floating voltage. 

3.5.2 Selection of Time Increments 



Choosing an appropriate time increment is very important for ensuring an accurate 
simulation. If trapezoidal integration is used, a time increment that is much greater than 
the associated time consant for a variable will result in that variable oscillating and probably 
going unstable. For this case, the Euler Backward method works better since the mode is 
assumed to have been driven to zero for the entire time increment. 

dx x 

— + - + A =0 
dt t 



Trapezoidal Integration 
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X - X old + 



fdA 


(-) 


UJ 





(x+x M ) + A(dt) = 0 
dt »x 



x +x m + 2At~ 0 
X~-X old -Z\T. 



Euler Backwards 



x-x M + dt 



f x \ 

-+A 



dt »x 



x ~-z A 

If the time step is made extremely small, the amount of computer time required to 
conduct the simulation becomes intolerably long with the undesired side effect of a loss of 
accuracy. When the time step is extremely small, round off error in the numerical calculations 
become a significant proportion of the corrections applied to the input variables. Over time, 
these errors can grow and give incorrect results. 

When making the time step smaller, the CONVERGE limit must also be decreased. 
Otherwise, the solution for the first time increment when applied to the second time 
increment will result in an implicit error that remains within the CONVERGE limit. Thus, 
the result of the first time increment becomes the solution for the second time increment. 
This process is repeated for the following time increments with the net result that none of 
the variables deviate from their initial values. 

For systems of nonlinear equations, choosing the optimal time increment is not easy 
to do in the general case. Usually one can get an acceptable value by trying to identify the 
fastest mode and using a time increment somewhat smaller than the associated time constant. 
Some experimentation is usually required to determine if a given choice is appropriate. 



- 76 - 



3.5.3 Using the SIMULATION File 



Since virtually all of the SIMULATION Section of the input file can be edited from 
within SEPSIP. it is a good idea to make the entire SIMULATION section an include file. 
This allows one to directly save any edited parameters with the Save SIMULATION 
Section (fs) command. The next time the input file is loaded, all of the edited simulation 
parameters will also be loaded. 

3.5.4 Using the INITIAL File 

Properly using INITIAL files can greatly reduce the computational time required to 
conduct a simulation under certain circumstances. A typical problem may be to study the 
transient response of a system originally in a steady state condition that experiences some 
disturbance. Achieving the initial steady state condition may require a lot of simulation 
time due to slow "start up" time constants. To eliminate the overhead time required by the 
system to achieve steady state in each simulation, the IN l l llAL file allows one to conduct 
an undisturbed simulation once, save the steady state solution in the INITIAL file, and use 
that INITIAL file as the starting point for all further simulation work. 

3.6 Adding DEVICE Descriptions 

Adding a Device description to the list of available devices requires a fair amount of 
effort. One or more functions must be written and compiled in the C programming language 
and linked with the other SEPSIP routines. Additionally, one include file (penner.h) and a 
device data file must be edited. Details for this procedure are contained in Appendix B. 
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CHAPTER 4 



DEVELOPMENT OF SHIPBOARD 
ELECTRICAL COMPONENT MODELS 
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4.1 Transmission Line Model 



The transmission line model included in SEPSIP consists of a series combination of a 
resistor (R) and an inductor (L). The inductor also has another resistor (Rj) in parallel with 
it to account for leakage resistance. R, also helps numerically when the transmission line is 
attached to a switch that opens. If R, were not included and the inductor current were forced 
to zero immediately, the voltage drop across the inductor would be infinite. Rj provides a 
path for the inductor current to flow and thereby allow a finite voltage drop. Since all physical 
inductors have an associated leakage resistance, the inclusion of R, better reflects the actual 
transmission line characteristics. 

Figure 4.1-1 Transmission Line 




R, 

tie 

R L 



rA/Wi 

WW 





R, 



rVv\n 

Wv-W 






R 



L 

R, 






R 



If the transmission line is excited with a sinusoidal current, the effective resistance and 
inductance of the transmission line is given by: 



R eff = R +R \ 



1 ) 



L ff = L 
c ff 



'_ 1 _ ' 
f (aL V 



[ 1 ] 

[ 2 ] 



The Model contains the following definitions 
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Parameters 



R 


Resistance 


L 


Inductance 


R, 


Parallel Resistance for Inductor 




Input Variables 


V Oa 


Terminal 0 Phase A Voltage 


v ()b 


Terminal 0 Phase B Voltage 


V C* 


Terminal 0 Phase C Voltage 


V .a 


Terminal 1 Phase A Voltage 


v Ib 


Terminal 1 Phase B Voltage 


V 1c 


Terminal 1 Phaxe C Voltage 


j<)a 


Terminal 0 Phase A Current 


k)b 


Terminal 0 Phase B Current 


ioc 


Terminal 0 Phase C Current 


ha 


Terminal 1 Phase A Current 


i, b 


Terminal 1 Phase B Current 


he 


Terminal 1 Phase C Current 




State Variables 


v a 


Phase A Voltage 


v b 


Phase B Voltage 


V c 


Phase C Voltage 


h 


Phase A Current 


ib 


Phase B Current 


h 


Phase C Current 




Implicit Variables 


la 


Phase A Integrator 


Ib 


Phase B Integrator 


Ic 


Phase C Integrator 



Equations 




- v o* 


[3] 


b - V 0 b 


[4] 


V c = V Ic ~ V 0c 


[5] 




[6] 


h l 0b) 


\7] 


K = \ (he - U 


[8] 
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If R, and L are both not zero, the following equations hold: 



v u = ( v a~L R ) 

V Lb = ( V i “ >b R ) 

v u = O', " K R ) 



h, = L 



Vu 

Vu 

R, 



V, 



hr = L — 



Lc 



*1 



K — l U i La old ' 



dt_ 



K ~ 'u iu_oid ^ 2 J 



Vu + VUjM 
Vu + VLb^u 



V 



K — iu l Uold ' 



dt_ 



\( V Lc + Vu_olA 



if R, or L are either zero, the following equations are used: 

I = \> - iR 



h = - K R 



[ 9 ] 

[ 10 ] 

[ 11 ] 

[ 12 ] 

[13] 

[14] 

[15] 

[16] 

[17] 

[18] 

[19] 

[ 20 ] 



h = v e - i c R 

Comments 

The implementation of the transmission line model is contained in the file f_t_line_3p.c 
listed in APPENDIX C. 
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4.2 Resistive - Reactive Load Model 



The resistive - reactive load model included in SEPSIP consists of a three phase wye 
connected impedance. Each phase of the load consists of a resistor (R,) in parallel with a 
series combination of another resistor (R) and an inductance (L). R, helps numerically when 
the load is attached to a switch by providing a path for the inductive current to flow and 
thereby prevent the voltage drop across the inductor becoming infinite. 

Figure 4.2-1 Resistive Reactive Load Model 
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Parameters 

Resistance (ohms) 
Inductance (henries) 
Parallel Resistance (ohms) 

Input Variables 

Phase A Terminal Voltage 
Phase B Terminal Voltage 
Phase C Terminal Voltage 
Center Point Terminal Voltage 
Phase A Current 
Phase B Current 
Phase C Current 
Center Point Current 

State Variables 

Phase A Voltage 
Phase B Voltage 
Phase C Voltage 
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Phase A Current 
Phase B Current 
Phase C Current 



la 

lb 

Ic 

tain 



Implicit Variables 

Phase A Integrator 
Phase B Integrator 
Phase C Integrator 
Sum of Currents 



Defining Equations 



l \ a = l 0n l 0b l 0c 


[1] 


l \b ~ l 0 n l 0c *0 a 


[2] 


he = l 0n Jrl 0a Jr l 0 b 


[3] 


V o = V 0c - V 0n 


[4] 


V b= Y 0b~ V 0n 


[5] 


Y c = Y 0c ~ Y 0n 


[6] 


l 0 a~ l \o 
l °~ 2 


[7] 


l 0 b~hb 


[8] 


h~ 2 


. he - he 

h ~ 2 


[9] 


h = i 0a + h b + *0 c + *0n 


[10] 


■■ 0 the following Equations are used: 




R,R 




R =— — 


HU 


f R } +R 


L = Y a ~ L R e 


[12] 


V 

<< 

T 

n 


[13] 




[14] 



Otherwise, the following Equations are used: 
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L 



d ^~i 



dr 



d ^~i 

dr 



= v - i R 

a a 



= v b ~ ‘b R 



d l ,f R, I 

L - V — v, - i,R 



l a C C old 



dr 



V a ~ '’a old 



f ^ f v a +v a _ M 



h — l b l b_old 






V b - V hold 



dr_ 

L 

dr 



\ 



R i a _old 

Z J 



Ri 



j v 



V b + V b_old . 

R h_oid I 



K — l c K oid 



*’c - V cM 



Ri 



(dA 


( V r + V c _old 


\ 


Uj 


l 2 


-Me ou 

) 



[ 15 ] 

[ 16 ] 

[ 17 ] 

[ 18 ] 

[ 19 ] 

[ 20 ] 



Comments 

The implementation of the resistive - reactive load model is contained in the file 
f rl wve.c listed in APPENDIX C. 
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4.3 Synchronous Machine Model 

Synchronous machines are used as both generators and motors onboard ships. The 
synchronous machine device included in SEPSIP is based on the shielding constraint model 
provided in [16]. This model uses the standard per unit parameters normally provided by 
generator manufacturers. All calculations are performed in the per unit system and employ 
Park’s transformation to remove many of the time dependencies and thereby improve the 
numerical solution.' 

Figure 4.3-1 Synchronous Machine Model 





Parameters 

Synchronous Reactance (PU) 
Negative Sequence Reactance (PU) 
Transient Reactance (PU) 

D-axis Subtransient Reactance (PU) 
Q-axis Subtransient Reactance (PU) 
Armature Leakage Reactance (PU) 
Transient Open Circuit Time Constant (sec) 
D-axis Subtransient OC Time Constant (sec) 
Q-axis Subtransient OC Time Constant (sec) 
Armature Time Constant 
Field Current for no load rated voltage (amps) 
Inertia Constant (sec) 

Pole Pairs 



1 Park’s Transformation expresses all of the voltages and currents in the reference frame of 
the rotor. The stationary reference frame is referred to as the abc frame while the trans- 
formed reference frame is called the dqo frame. Under normal operation, the dqo variables 
are not a function of the rotor angle. 
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Base frequency (rad/sec) 

Base Phase Voltage (0 to peak) 

Base Power (watts) 

Input Variables 

Phase A voltage 
Phase B voltage 
Phase C voltage 
Neutral voltage 
Phase A current 
Phase B current 
Phase C current 

Terminal 0 Field winding voltage 
Terminal 1 Field winding voltage 
Terminal 0 Field winding current 
Terminal 1 Field winding current 
Electrical rotor angle (radians) 

Mechanical frequency (rad/sec) 
Mechanical acceleration (rad/sec 2 ) 

Torque [turbine +] (Nm) 

Internal Variable : q axis flux 
Internal Variable : d axis flux 

State Variables 

Electrical Angle state (rad) 

Mechanical frequency state (rad/sec) 

Mechanical acceleration state (rad/sec 2 ) 

D axis flux [PU] 

Q axis flux [PU] 

Voltage behind transient reactance [PU] 
Voltage behind Q axis subtransient reactance [PU] 
Voltage behind D axis subtransient reactance [PU] 
Derivative of D axis flux 
Derivative of Q axis flux 
Derivative of voltage behind transient reactance 
Derivative of voltage behind Q subtransient reactance 
Derivative of voltage behind D subtransient reactance 

Implicit Variables 

Sum of input phase currents 
Sum of field currents 
neutral voltage 
D axis flux eqaution 
Q axis flux equation 
Q axis subtransient equation 
D axis subtransient equation 
transient equation 



I lors Torq balance 

I* integrating frequency 

I ww integrating frequency acceleration 

Equations 

Calculate Base Quantities 



; Ata. 

■" 3 Vjt, 


[1] 


I JB = I fnl( X d “ X at) 


[2] 


d 3 

ii 


[3] 


-0 ^ 

S. <£ 
C 3 

n 

c 


[4] 


Calculate Phase voltages 




= v oc - v 0n 


[5] 


v fc = Vo,, - V 0 n 


[6] 


V , = V 0, - V 0n 


[7] 




Perform Park’s Transformation 
cos(0) 





( 2k) 




L 2k) 


COS 


0- — 


COS 


0 + — 




l 3 J 




l 3 J 






- sin(9) -sin 



*-T 



- sin 



271^1 

e+ TJ 



11 1 
2 2 2 



ij 


1 - 


L 




= — T 

u 


l ob 


Jo. 




Joe. 



1 

^ ' t 


1 - 


1 

f* 




'\£ 

II 


V 0b 


1 — 

p ** 




. V 0c. 



[ 8 ] 



[9] 



[ 10 ] 
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Calculate other variables 



S’ 

L, 

ii 


Ul] 


V 

II 

^ i 


[12] 


// 

T = — T 

aq , // ad 


[13] 


II 

Ck. 

1 

£ 


[14] 


xh 

Xf x d -x/ 


[15] 


r = Xf 
1 ^bsTjo 


[16] 


xl 

Xkd Xj-x/' 


[17] 


x d -x” 

a= , 
x d -x d 


[18] 


Calculate states 




XajVfd 

e « = r f 


[19] 


e d ~x q i q 


[20] 


=~ x j h + 


[21] 


x ad (x f -x u )i fd +x u e/' 

x f 


[22] 


* 

n 

£ 


[23] 


ii 


[24] 



Calculate Derivatives 
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[ 25 ] 



dy d e”-\if d 

D ^ = -^- = — + + Vd 



' ad 



= d% -%-e/ 
v < dt 



- u m p r y d + <x) hs v. 



aq 



'« dt 



r , , „ \ 

X d „ , Xd -x d ' 

e" + e/+ — y d 



1 do 



v " <? 






Xd 



J 



D .. d -£.-l 

dt T 



qo 



f rf \ 

n^d ff Y q 

\ ■*? x q j 



de ' 1 



£>. = — = — ; i-ae' + (a - 1 )e " + ej 
e < dt T d0 ' q q af> 

Perform Modified Trapezoidal Integration 
To determine 1^, 1^, 1^.., I*.., and I„,. 

dx 



dt 



- y 



h=x- x old - (dt) ( 0 .6y + 0Ay old ) 
Calculate Current Implicit Variables 



1 ssum l 0 



Jof+hf 

1 /sum r 

1 n 



‘JB 

Calculate Mechanical Variables 
T' P u = Vdiq ~ %id 

AHp p & m 



T = 

acc 



(x>, 



'bs 



J - J -J 1 

torq acc epu r r > 

1 bs 



[26] 

[27] 

[28] 
[29] 



[30] 

[31] 

[32] 

[33] 

[34] 

[35] 

[36] 
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e, = e 


[37] 


CO = CO 

ms m 


[38] 




[39] 


(dt\ 

At ” ^5 old ry (p p^ms + Pp^ms old ) 

v z / 


[40] 


h.. = <o„, - - (dt) (0.6co w + 0.4© oW ) 


[41] 



Comments 

The implementation of the synchronous machine model is contained in the file 
f_synch_mach.c which is listed in APPENDIX C. 

The following parameters describe a2000KW generator typical of those found on U.S. 
Navy destroyers: [10] 



X d 


1.38 


PU 


X q 


0.26 


PU 


x d ’ 


0.25 


PU 


V’ 


0.171 


PU 


V’ 


0.171 


PU 


X, 


0.1 


PU 


T do ’ 


2.9 


sec 


1 do 


0.0 


sec 


*-p 1 1 

* qo 


0.0 


sec 


f 

1 ad 


0.09954 


sec 


ifnl 


38.5 


amps 


H 


0.651 


sec 


Pp 


2 




Urns 


376.99 


rad/sec 


V db 


367.4235 


volts 


Pbs 


2500000 


watts 



The subtransient time constants are set to zero becuase the author was unable to obtain 
their true values from unclassified sources. The time constants are typically fast and 
approximating them as zero does not introduce serious errors. 
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4.4 Speed Governor 

The speed governor model included in SEPSIP is based on the mechanical speed 
governor on the 2000 K W synchronous steam turbine generator found on an older U.S. Navy 
submarine. This model is based on one developed by the author as part of a term project for 
an electrical engineering machinery course [10] and is a greatly reduced version of the model 
developed by Dalton [6], 

Figure 4.4-1 Speed Governor 




Parameters 





Zero Order Frequency (rad/sec) 




Droop Factor Coefficient (rad/sec-inch) 


^JTepu 


PU Torque Coefficient (rad/sec) 


Tbs 


Base Torque (Nm) 




Time Constant (sec) 




Input Variables 




Mechanical frequency (rad/sec) 


T 

A e 


Torque (Nm) 


S 


Droop Factor (inches) 




State Variables 


T 

A m order 


Ordered Torque (PU) 


T mpu 


Actual Torque (PU) 




Implicit Variables 


I, 


Implicit Variable 
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Equations 



m order 



to, 



- tonio - u ds s) 



wdT epu 



T - T +5oo 

mm m n 



T = 



[ 1 ] 

[ 2 ] 

[3] 



1 BS 



djmpu 

dt 



— (T _ T \ 

m_order mpu / 



[4] 



Ig ~ T g (T mpu T mpujold ) (dt)(T f 



m order old 



- 0.5 T - 0.5 T. 



mpu 



mpu 



old) 



[5] 



Comments 

Equation [1] provides the steady state value for the torque corresponding to the present 
rotor speed. Equations [2] and [3] calculate the actual torque being delivered in the present 
time increment. Equation [4] describes the dynamics of the speed governor as a simple first 
order system. The differential equation is solved using trapezoidal integration. While this 
is a simple model, it does provide results consistent with the data provided in ref [6]. 

The Droop Factor s is in reality the Primary Amplifier Fulcrum Displacement. On older 
submarines, a stepper motor attached to a set screw is used to adjust this displacement until 
the desired frequency is obtained for a desired load. A normal range for s falls between 0 
and .5 inches. The parameter values are: 

co n/o = 374.72 
(Dfc = 63.38 
<W- 20.15 
I, = 0.328 

The above values are for a single pole pair generator, for a two pole pair machine, the 
first three parameters should be halved. 
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4.5 Voltage Regulator Model 

The voltage regulator model included in SEPSIP is a simple first order transfer function 
between the terminal voltage error and field voltage of a synchronous machine. The terminal 
voltage is measured by subtracting the mean value of all three phases from the voltages of 
phases A and B. These values are fitted to two cosine voltages that are phase shifted by 1 20°. 
The derived terminal voltage is divided by the desired terminal voltage and subtracted from 
1 . This error voltage is subjected to a first order transfer function that produces a signal 
voltage that is added to 1 and multiplied by the nominal field winding voltage. 

If the field voltage is driven above or below specified clipping levels, the regulator 
maintains the field at the clipping voltage. Typically the lower limit for the field voltage is 
about 0 volts while the maximum is around 1 .5 to 2 times the field voltage required to maintain 
the terminal voltage under full load. 

This model does not represent any specific voltage regulator. However, since the 
response of many voltage regulators is dominated by one eigenvalue, approximating the 
dynamics by a first order lag is not a bad assumption. The clipping action of the regulator 
ensures that the field voltage does not exceed reasonable bounds. 

Figure 4.5-1 Voltage Regulator 




h 

\ V «T 


Transfer 


v., m _ 


/ 


Function 
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Parameters 



V fd bs 


Nominal Field winding Voltage 


K 


Per Unit Error Gain 


T 

X VT 


Voltage Regulator Time Constant (sec) 


^fmax 


Maximum limit for field voltage 


v 

T fmin 


Minimum limit for field voltage (clipping) 

Input Variables 


V 0a 


Phase A voltage 


v 0b 


Phase B voltage 


V 0c 


Phase C voltage 


V 0f 


Field Winding Terminal 0 voltage 


> 


Field Winding Terminal 1 voltage 


ktf 


Field Winding Terminal 0 current 


i ]f 


Field Winding Terminal 1 current 


v bs 


Desired Voltage (neutral to line peak) 




Reference Frequency (rad/sec) 


v, 


Measured Voltage (internal variable) 


y 


Measured Phase (internal variable) 

State Variables 


V crr 


Per unit error in voltage 


V 5lg 


Per unit correction to field voltage 


e 


Phase (radians) 


^clip 


Clipping State 

Implicit Variables 


I, 


voltmeter Phase A equation 


h 


voltmeter Phase B equation 


Issum 


Sum of Currents 


In 


Transfer Function Equation 



Equations 

Calculate the terminal voltaee 



1 


[1] 


3 ( V 0a + V 0i> + V 0c ) 


V* = V* - V„ 


[2] 


V fc = V 0 b - V n 


[ 3 ] 


V = v* - V„ 


[ 4 ] 



Y=Y ou + aJdt) 



m 
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[5] 



A = 



(v a -v, cos(0 + y)) 



V 7 ; 



bs 



L = 



v b - ^cosiQ + y-y 



2 n 



v, 



bs 



Calculate the input and output to the transfer function 



v ~ r 1 v* 



' *‘g 



V 1/" V P f 



-1 



v fdbs 



If c clip old = 0, the regulator is not clipping: 

d v si . 

T >r-jf + V s, S = KV err 

K = TJy». - v s,,_cid) + dt{. 6(v • - K v err ) + A(v-_ m - K v u )) 



v f d = v i f - 'V 



otherwise the regulator is clipping 

Vfinin ~ ( v i f~ v 0 /) 



if c ch P M = -1 then l n = 



V, 



bs 



if c cU P M = 1 then /„ = 



Vfmax-{ V \f- V 0f) 



v, 



bs 



_ - dt [A(V ug old -KV erroU ) - .6 KVJ_ 

T -I- (S/Vf 



V / = ('W + 1 ) V /^ 

The sum of the field currents should be zero 

‘ssum — l 0f + 1 \f 

See if should clip during the next time increment 



[ 6 ] 

[7] 

[ 8 ] 

[9] 

[ 10 ] 

[ 11 ] 

[ 12 ] 

[13] 

[14] 

[15] 

[16] 



-95 - 



if '/ * then c clip = 1 


[17J 


else if Vj < v >in then c cUp = -1 


[18] 


else c cUp = 0 


[19] 


Comments 





The implementation of the voltage regulator model is contained in the file f_volt_reg.c 
listed in APPENDIX C. 
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4.6 Induction Motor Model 



The Induction Motor Device included in SEPSIP is based on a model of a "squirrel 
cage" motor presented by Krause [17]. This model assumes the stator consists of three 
windings and that the rotor can be represented by three additional windings. 

Figure 4.6-1 Induction Motor 




Mutual Inductances Not Shown 



Parameters 



R s 


Stator Resistance (ohms) 


x ls 


Stator Inductance (ohms) 


x,’ 


Rotor Inductance (reflected to Stator) (ohms) 


r; 


Rotor Resistance (reflected to Stator) (ohms) 


j 


Moment of Inertia (Kg-m 2 ) 


u hs 


Base Frequency (rad/sec) 


Pp 


Pole Pairs 


B 


Windage Torque Factor (Nm-sec) 
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Input Variables 



V 0a 


Phase A voltage 


V 0b 


Phase B voltage 


V 0c 


Phase C voltage 


\)a 


Phase A current 


iob 


Phase B current 


ioc 


Phase C current 


0 


Electrical Rotor Angle (radians) 


CO 


Mechanical Frequency (rad/sec) 


CO 


Mechanical Acceleration (rad/sec 2 ) 


V On 


Neutral voltage 


Ira 


Phase A rotor current 


iib 


Phase B rotor current 


in: 


Phase C rotor current 
State Variables 


K 


Phase A stator flux 


K 


Phase B stator flux 


K 


Phase C stator flux 




Phase A stator flux derivative 


D sb 


Phase B stator flux derivative 


D sc 


Phase C stator flux derivative 




Phase A rotor flux 




Phase B rotor flux 


he' 


Phase C rotor flux 


D ra 


Phase A rotor flux derivative 


D* 


Phase B rotor flux derivative 


D rc 


Phase C rotor flux derivative 


9, 


Electrical Rotor Angle (rad) 




Mechanical Speed (rad/sec) 




Mechanical Acceleration (rad/sec) 

Implicit Variables 


I>a 


Phase A stator flux equation 


^lb 


Phase B stator flux equation 


I.c 


Phase C stator flux equation 




Phase A rotor flux equation 


^Irb 


Phase B rotor flux equation 


Iu, 


Phase C rotor flux equation 


Is 


Sum of Stator Currents 


W 


Frequency Integration 


w D 


Acceleration Integration 


It 


Torque equation 
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Equations 

Calculate Inductances 



L 



Is 



Mbs 



L 



lr 





<* bs 



L 



rr.s 




[ 1 ] 

[ 2 ] 

[ 3 ] 

[ 4 ] 



jL, , — L>i “I * L 

11 Is ms 

L aa = L/ + L 

44 lr ms 



L 

L 



^41=^COS(9) 



5 1 — L ms cos 



( 2 k 

e+ T 



6. =^cos 



•-T 



Calculate Fluxes 



\ 

J 

x 

/ 



sa ~ ^1 d(ta ^-2i ; 0i> +Lz\ l Oc "*■ ^41 l ra ‘*'^'51 Kb ^6\ l rc 

\b = L 2 ] l Oa +L\\ l 0b ■*'^21*04 ^^6\ l ra "*"^41 l rb '*‘^'5 drc 

K = ^2\ l o a "*"^2i ; o b +L u i 0c + L 5i i ra + L 6] i rb + L i} i rc 



Ka = + L (J(>h + L S 1 ><k + +L Jra + L Z 1 Kb + L 2\hc 

\b = ^5 1^0 a ''‘As do b ^6\ l 0c ^^2 \ l ra ^4 Jrb "*"^2 drc 

C x = ^61 l 0a + I sJob + ^4d0c ++^-2dra ^2\ l rb ^AA l rc 



[ 5 ] 

[ 6 ] 

[ 7 ] 

[ 8 ] 

[ 9 ] 

[ 10 ] 



[ 11 ] 

[ 12 ] 

[ 13 ] 

[ 14 ] 

[ 15 ] 

[ 16 ] 
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Calculate Flux Derivatives 



T = -p L 

c r p ms 



D sa = V O a -V0n-RsL 



D s b ~ V 0b V 0 n RJob 



D sc — v 0( v 0 „ Rjoc 



D ro = -Ki, 
D rb = -R r 'i, 
D rc = -R r \ 



[17] 

[18] 
[19J 

[ 20 ] 

[ 21 ] 

[ 22 ] 



Perform Trapezoidal Integration 



ha Cic h sa old 



hb ~ \b Kb old ' 



he — \c \c_old ' 



dt l 

yj ( D s a +D sa_old) 

dA 

y I ( D sb +D sb_oid) 



T I ( D sc + D sc old) 



J — 7 ' —7 ' _ 

l lra ~ ^ ra ^ ra old 



dt) 

y I ( D ra + D ra_old ) 



T t / 

Irb = f 'rb ~ K rb_old ~ 



dt_ 



\( D rb +D rb old ) 






( D rc +D rc old ) 



- J 



h~ 1 Oa l Ob "*■ l 0c 



Calculate Torque and Mechanical variables 



f 

. I* 

V 



2 2 



'' ( i ^ ( 

l rr l ra 



+ I 



Oh 



Kb 2 2 



+ 1 



Oc 



W 



lrc J 9 , , 

Z - JJ 



sin(0) + 




9 0o Shrb - C ) + hhdre - D + he (L - irb)) cos(6)} 



[23] 

[24] 

[25] 

[26] 

[27] 

[28] 
[29] 



[30] 
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I T = T e -J(o-T nuch -B(o [31] 

0, = 0 [32] 

to, = to [33] 

co, = to [34] 



W = 0, - 0 w - 



fdt 



\ z J 



P P (Us+Us Old) 



W D = a s -a s _ old - 



'dt} 

V2 j 



(d), + CD, oW ) 



[35] 

[36] 



Comments 

The implementation of the induction motor model is contained in the file f_ind_motor .c 
listed in APPENDIX C. 
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4.7 Three Phase Switch Model 



The Three Phase Switch model allows the user to control switches for all three phases 
with one external input variable. When the external input variable commands the switches 
to close, all three phase switches close at once. When commanded to open however, the 
individual phase switches remain closed until a zero crossing occurs. 

Since a switch changes the configuration of the network, one must ensure that both 
configurations are defined properly and have a voltage reference. In particular, switches 
should not be connected in series without providing some means (such as a resistor) to define 
the voltage of the node connecting the two switches. 

Figure 4.7-1 Three Phase Switch 




Input Variables 



V 0a 


Terminal 0 Phase A Voltage 


V Ob 


Terminal 0 Phase B Voltage 


V 0c 


Terminal 0 Phase C Voltage 


V U 


Terminal 1 Phase A Voltage 


V lb 


Terminal 1 Phase B Voltage 


V lc 


Terminal 1 Phase C Voltage 


kia 


Terminal 0 Phase A Current 


kb 


Terminal 0 Phase B Current 


kc 


Terminal 0 Phase C Current 


ha 


Terminal 1 Phase A Current 


hb 


Terminal 1 Phase B Current 


he 


Terminal 1 Phase C Current 
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State Variables 



Sa 

Sb 

Sc 



A sc 

I* 

1*6 

I,c 



S 



Phase A state 
Phase B state 
Phase C state 
Phase A current 
Phase B current 
Phase C current 



Implicit 



Phase A switch 
Phase B switch 
Phase C switch 
Phase A current sum 
Phase B current sum 
Phase C current sum 

External Input 

Switch Condition 

0 = on 

1 =off 



Equations 




i c = 2^ a ~ i ° a) 

l b~~^ Olfc — *0 b) 

i c=\(hc~ i Oc) 



If the Switch is commanded closed: 
s a = s h = s c = 1 

If the Switch is commanded opened: 



[ 1 ] 

[ 2 ] 

[3] 

[4] 

[5] 

[ 6 ] 



[7] 
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[ 8 ] 



^ a $a_old 
S b ~ S b_old 

s=s r 



c c 



old 



Calculate the implicit variables: 
if j = 1 then / = v else / = / 



sa a sa a 



if h = 1 then I sh = v b else I sb = I b 



if 5 C = 1 then I sc = v c else I sc = I c 



ha ~ l 0a ha 



hb ~ hfc "*■ hi. 



Ac = he + he 



19] 

[ 10 ] 

[ 11 ] 

[ 12 ] 

[13] 

[14] 

[15] 

[16] 



If the Switch is commanded opened. Check for Zero Crossing: 



if Ua_cU ~ 0 111611 ^ = 0 elSe S a ~ 1 


[17] 


if ibhjM - 0 111611 s b = 0 e l se s b = 1 


[18] 


if Uc ou - 0 ^en s c = 0 else s c = 1 


[19] 



Comments 

The implementation of the three phase switch is contained in the file f_switch_3p.e 
contained in APPENDIX C. 

Note that the switch does not open until a zero crossing has occurred. This may lead 
to problems when the derivative of the current is very large and the current overshoots zero 
by a large amount. 
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4.8 Circuit Breaker Model 



The circuit breaker model included in SEPSIP simulates a three phase circuit breaker 
that is tripped either by an overcurrent or 'manually’ by the operator. The square of the 
magnitude of the current is determined through a forgetting factor f which is multiplied by 
the square of the old value of the current magnitude and added to (1 - f) times the square of 
the present current value. The magnitude of the current is compared to a specified limit, if 
the limit has been exceeded for a certain amount of time, the breaker is commanded to open. 
The breaker can also be commanded to open by an external input. Once commanded to open, 
the switch for each phase remains closed until a zero crossing occurs. 

Figure 4.8-1 Circuit Breaker 



V 



Os 



lob 




loc 

6 ^- 

M)c 






Ju 



Each phase of the circuit breaker is modelled as a state machine having seven states 
defined by: 



Figure 4.8-2 Circuit Breaker States 


State 


Switch 


External Cmd 


Current Trip 


0 


open 


open 


open 


1 


closed 


open 


open 


2 


open 


open 


closed 


3 


closed 


open 


closed 


4 


open 


closed 


open 


5 


closed 


closed 


open 


7 


closed 


closed 


closed 
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f 



I|rip 

^trip 



V 

V 

V 



Oa 

Ob 

Oc 



joa 

job 

ioc 



1 

i 

i 



la 

lb 

1c 



Sa 

Sb 

Sc 

la 

ib 

h 

^aavc 

^bave 

^cave 

t,a 

tab 

tie 



Switch 



lac 

Iia 

lib 

Ik 



Parameters 

RMS Forgetting Factor 
Current Trip value (amps rms) 

Current Trip Minimum Time (sec) 

Input Variables 

Terminal 0 Phase A Voltage 
Terminal 0 Phase B Voltage 
Terminal 0 Phase C Voltage 
Terminal 1 Phase A Voltage 
Terminal 1 Phase B Voltage 
Terminal 1 Phase C Voltage 
Terminal 0 Phase A Current 
Terminal 0 Phase B Current 
Terminal 0 Phase C Current 
Terminal 1 Phase A Current 
Terminal 1 Phase B Current 
Terminal 1 Phase C Current 

States 

Phase A switch state 
Phase B switch state 
Phase C switch state 
Phase A current 
Phase B current 
Phase C current 
Phase A rms current 
Phase B rms current 
Phase C rms current 
Phase A overcurrent time 
Phase B overcurrent time 
Phase C overcurrent time 

External Input Variables 

External Switch 

Implicit Variables 

Phase A switch equation 
Phase B switch equation 
Phase C switch equation 
Phase A current sum 
Phase B current sum 
Phase C current sum 

Equations 

v .= v ,«- v o. [1J 

v b = V 1 b - v 0b [2] 

v = V 1< - v* [3] 
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[4] 



L=^{ha~D 

l b~^ Ol h ~ l 0h) 

'c =^0'lr- J O c) 



Perform the following State Transformation: 



Figure 4.8-3 Breaker Transform Table 1 


Old State 


Switch on 


Switch off 


0 


7 


0 


1 


7 


1 


2 


7 


2 


3 


7 


3 


4 


4 


0 


5 


5 


1 


7 


7 


3 



If tia_dd, tib_oid- or t ic old is greater than t, rip 



use the following transition table 



Figure 4.8-4 Breaker Transform Table 2 


Old State 


New State 


0 


0 


1 


1 


2 


0 


3 


1 


4 


4 


5 


5 


7 


5 



The Implicit variables are defined by 



if j 0 is odd then I sa = v a else l sa = i a 
if s b is odd then I !b = v h else I sb = i b 
if is odd then I sc = v c else I sc = i c 



[5] 

[ 6 ] 



[7] 

[ 8 ] 

[9] 
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fioj 



Kb — h)b ^ ! ]h [ 11 ] 

I« = hc + ixc I 12 ] 



Look For Zero Crossing 

If the product of a phase current's present and old values 
is less than or equal to zero, perform this transformation: 



Figure 4.8-5 Breaker Transform Table 3 


Old State 


New State 


0 


0 


1 


0 


2 


2 


3 


2 


4 


4 


5 


4 


7 


7 



Calculate RMS Currents 



Calculate RMS Currents 

W = Vd [ 1 3] 

W = V(l-/)4 2 +/lL^ [14] 

have = V(1 ~f)h + f leave _oU [ 1 5] 

Update Overcurrent Time counters 

if have ^ h rip then Ka = J ,aM + dt else t ■„ = 0 [16] 

if Lve ^ Lp then t lb = t lbold + dt else t ib = 0 [17] 

if have ^ Lp then he = hcM + dt else t K = 0 [18] 

Comments 



The implementation of the three phase circuit breaker model is contained in the file 
f_breaker_3p.c listed in APPENDIX C. 
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CHAPTER 5 



SIMULATION RESULTS 

A description of SEPSIP would be incomplete without several examples of simulations 
conducted with the program. This chapter contains the input files and results of seven sim- 
ulations that demonstrate the features and capabilities of SEPSIP. The first two simulations 
show the start up transients for two different induction motors. Because the simulations are 
very similar, only slight modifications to the input files of the first simulation were required 
to generate the second simulation. The remaining simulations involve the response of one or 
two synchronous generators to changing loads. The third simulation loads a single synchronous 
generator with a .4 Per Unit load for a 4 second period and then removes the load. The response 
of the voltage regulator and speed governor to the application and removal of the load are 
clearly shown. The next two simulations use identical network topologies to study a generator’s 
response to two and three phase shorts. The input files for these simulations were modified 
from the third simulation in a very short time. The final two simulations demonstrate the 
ability of SEPSIP to simulate the dynamics of multiple generator systems. 
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5.1 50 HP Induction Motor Start Up 



This simulation shows the startup transients for a 50 HP Induction motor. The network 
consists of a simple three phase generator directly attached to the induction motor. Each 
phase of the generator consists of a sinusoidal source in series with a parallel combination 
of a resistor and an inductor. Figure 5.1-1 shows the structure of the network. 

Figure 5.1*1 50 HP Induction Motor 




The parameters for the induction motor are from Krause [17]. The Element description 
include file for this simulation is shown in figure 5.1-2 

Figure 5.1-2 t50.elm : Element Description File 



! t50 . elrri 

! Norbert H. Doerry 

! This file defines the elements for a simple 3 phase generator attached 
! to an induction motor. 

ger._synch_2p gen 
phase_a 0 . 0 
L 0.0001 
R 1000 
end 

! The following are the characteristics of a 50 HP motor 
! described on page 190 of Krause's ANALYSIS OF ELECTRIC MACHINERY 

ind motor motor 



Rs 


.0807 


XI s 


.302 


XM 


13.08 


Xlr prime 


.302 


Rr_prime 


.228 


J 


1. 662 


v:bs 


3^6. 99 


pp 


2 


3 


C . 0 



end 
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Note that the series induction for the generator is very small. This was done to simulate 
a voltage bus that was almost infinite in nature. (The voltage drop due to the synchronous 
reactance is negligible). 

The effect of setting B to zero for the induction motor is to ignore the windage losses. 
Since Krause also ignored windage losses in his analysis, the results from this simulation can 
be directly compared. 

Figure 5.1-3 t50.net : Network Description File 



! t50 . net 

! Norbert 

NETWORK 

t 

NODE gnd 
r v : i g = 
rv : vg = 
end 

NODE C 
v3 : v = 
i3:i 
end 

NODE Mech 
v : theta 
v : wm 

v : WTn __ c * t 
end 

NODE ref 
v : ira 
v: irb 
vs ire 
v: vO 
rv : Vref 
rv : f req 
end 

! 



H. Doerry 



0 = gen : iOn 
0 = genrvOn 



gen:vOa = motor :vOa 
geniiOa = motoriiOa 



= motor :theta 
= motor : wm 
= motor : wm dt 



= motor :ira 
= motor: irb 
= motor : ire 
= motor : vOn 
= gen:Vmag 
= 60.0 = gen :f req 



Figure 5.1-4 t50.init : Initialization File 



! t50 . init 

! Norbert H. Doerry 

INITIALIZE 

END 

NODE VOLTAGE INITIALIZATION 
C : v 375.6 

C:v_b -187.8 

C : v_c -187.8 

END 

EXTERNAL INPUTS INITIALIZATION 
motor :Tmech 0.0 
END 
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Figure 5.1-5 t50.sim : Simulation File 



! 1 5 0 . s im 




! Norbert H. 


Doerry 


SIMULATION 

t 




DISPLAY 




motor : RPM 




motor : HP 




motor : Te 




gen :1a 




gen : lb 




gen :1c 




gen :Va 




ref :ira 




ref :irb 




ref :irc 




END 

i 




TIME STEP 


0.00025 


TMIN 


0 


TMAX 


1.0 


PRINT STEP 


0.0010 


DELTA 


0.01 


DELTA_MIN 


0 . 01 


CONVERGE 


le-10 


MAX ITERATION 50 


REFERENCE 





Is c : i 

V: ref : Vref 375.6 
END 

» 

EXTERNAL INPUTS 
END 



The above files are synthesized into a single input file with the following format: 

Figure 5.1-6 t50.all : Input File 



! t50 . all 

! Norbert H. Doerry 

I 

include t50.elm 
include t50.net 
include t50.init 
include t50.sim 



The above format for the input file was used for all the simulations conducted for this 
thesis. In the following sections, the include files will be referred to as separate entities even 
though they only have meaning when organized in the manner shown in figure 5.1-6. SEPSIP 
does not require the organization of the input file in this manner, but this convention greatly 
eases the task of creating and running simulations. 

The results of the simulation are shown in figures 5.1-7 through 5.1-10. Note that for 
this motor, the machine reaches its steady state speed after only .6 seconds. As typically seen 
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in many induction machines of this size, the transient currents during the startup are con- 
siderably greater than the final no load current. The rotor current also shows the expected 
characteristic decreasing frequency as the rotor approaches synchronous speed. These results 
are all identical to the figures shown in reference [17]. 

Fig 5.1-7 RPM vs Time Fig 5.1-8 Te vs RPM 



50 BP Induction Motor: RPM vs t 
1 J I 1 I 





t ini* (sac) 

Fig 5.1-9 Stator Current vs Time 



RPM 

Fig 5.1-10 Rotor Current vs Time 



50 BP Induction Motor: la v* t 




tim® (sac) 



50 EP Induction Motor: Ira vs t 
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5.2 5 00 HP Induction Motor Start Up 



This simulation shows the startup transients for a 500 HP Induction motor. The network 
consists of a simple three phase generator directly attached to the induction motor and is 
identical to the network used for the 50 HP Induction motor in the previous section. Figure 
5.2-1 shows the structure of the network. 

Figure 5.2-1 500 HP Induction Motor 



ref:Vref 




C:v 




Mech:theta 


gen_synch_3p 


C:v_b 


ind_ motor 


Mechiwm 
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Mech:wm_dt 



to 


to 
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The parameters for the induction motor are from Krause [17]. The Element description 
include file for this simulation is shown in figure 5.2-2 

Figure 5.2-2 t500.elm : Element Description File 



! t500 . elm 
! Norbert H. Doerry 

! This file defines the elements for a simple 3 phase generator attached 
! to an induction motor. 

gen_synch_3p gen 
phase_a 0.0 
L 0.0001 
R 1000 
end 

! The following are the characteristics of a 500 HP motor 
! described on page 190 of Krause's ANALYSIS OF ELECTRIC MACHINERY 

ind motor motor 



Rs 


.2 62 


XI s 


1.206 


XM 


54.02 


Xlr_pr ime 


1.206 


Rr_prime 


.187 


J 


11 .06 


v:bs 


3' 7 6. 99 


PP 




3 


0 . 0 


end 
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Note that the series induction for the generator is very small. This was done for the 
same reasons discussed in the 50 HP induction motor example. 

Setting B to zero results once again with the induction motor dynamics ignoring the 
windage losses. Since Krause also ignored windage losses in his analysis, the results from 
this simulation can be directly compared. 

Figure 5.2-3 t500.net : Network Description File 



! t500.net 

! Ncrbert 

i 

NETWORK 

t 

NODE and 
r v : i g = 
rv : vg = 
end 

NODE C 

v3 : v = 
i3 si 
end 

NODE Mech 
v : theta 
v : win 
v : wm_dt 
end 

NODE ref 
v : ira 
v : irb 
v : ire 
v : vO 
rv:Vref 
rv : f req 
end 

i 



H. Doerry 



0 = gen : iOn 
0 = genrvOn 



gen:v0a = motor :v0a 
gen:i0a = motor :i0a 



= motor: theta 
= motor : wm 
= motor : wm dt 



= motor: ira 
= motor: irb 
= motor: ire 
= motor:v0n 
= genrVmag 
= 60.0 = gen: f req 



Figure 5.2-4 tSOO.init : Initialization File 



! t500.init 

! Norbert K. Doerry 

t 

INITIALIZE 

END 

NODE VOLTAGE INITIALIZATION 
C : v 1877.9 

C:v_b -938.95 

C:v_c -938.95 

END 

EXTERNAL INPUTS INITIALIZATION 
motor : Tmech 0.0 
END 
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Figure 5.2-5 tSOO.sim : Simulation File 



! t500.sim 
! Ncrbert H. Doerry 

SIMULATION 



DISPLAY 



motor : RPM 
motor : HP 
motor : Te 
aen : I a 
gen : lb 
gen : Ic 

gen :Va 
ref :ira 
ref :irb 

ref :irc 
END 




TIME STEP 


0.00025 


TMIN 


0 


TMAX 


2.0 


PRINT STEP 


0.0010 


DELTA 


0.01 


DELTA MIN 


0.01 


CONVERGE 


le-10 


MAX ITERATION 50 
REFERENCE 
Is C:i 


V : re f : Vref 1877 

END 



EXTERNAL INPUTS 
END 



The results of the simulation are shown in figures 5.2-6 through 5.2-9. Note that for 
this motor, the machine reaches its steady state speed after about 1.4 seconds. As typically 
seen in many induction machines of this size, the transient currents during the startup are 
considerably larger than the final no load current. The large startup currents indicate that a 
motor controller should be used during start up. The rotor current also shows the expected 
characteristic decreasing frequency as the rotor approaches synchronous speed. Another 
typical characteristic of large induction motors is the speed overshoot shown in figures 5.2-6 
and 5.2-7. Note that the 50 HP machine did not have an overshoot. These results are all 
identical to the figures shown in reference [17]. 
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Fig 5.2-6 RPM vs Time 



Fig 5.2-7 Te vs RPM 



500 BP Induction Motor! RTM v* t 
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500 BP Induction Motor: Te vs PTM 




time (aec) 

Fig 5.2-8 Stator Current vs Time 




Fig 5.2-9 Rotor Current vs Timt 



500 HP Induction Motor: la vs t 500 BP Induction Motor: Ira vs t 




time (tec) 



time (sec) 
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Current (amps) v Te (Ms) 



5.3 Synchronous Generator: Switched Load 

This simulation demonstrates the transients associated with loading an initially 
unloaded synchronous generator to forty percent of its rated load. The synchronous generator 
is modelled on a 2000 KW unit found on recent construction guided missile destroyers (DDG). 
Speed regulation is performed by a droop governor based on the type used on an older 
submarine. 1 The voltage regulator is modelled as a first order lag transfer function with 
output clipping. While most voltage regulators have more complicated transfer functions, 
this model provides reasonable results under normal operating conditions. The load is a wye 
connected impedance with a .999 power factor. Figure 5.3-1 shows the structure of the 
network: 

Figure 5.3-1 Synchronous Generator: Switched Load 




1 A droop governor has a torque speed characteristic that has a negative sloop. This 
implies that as the load on the generator increases, the frequency decreases. Another type 
of speed regulator, the Asynchronous governor, maintains a constant speed regardless of 
the load. In isolated operation, most modem generators operate in the Asynchronous 
mode. When two or more generators are paralleled however, the droop mode provides a 
inherently stable method for sharing the load. Paralleled Asynchronous generators require 
special circuitry to ensure one generator does not take all of the load. 
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The parameters for the generator were obtained from reference [10]. The voltage 
regulator dynamics were extracted from data provided by references [2] and [18]. Speed 
governor dynamics are from references [6] and [10]. The parameters are all listed in figure 



5.3-2 



Figure 5.3-2 v.elm : Element Description File 



! v . elm 
INorbert H. 

i 



Doerry 



synch_mach sgen 



xd 



1.38 



xq 


0.26 


Xd_JD 


0.25 


Xd_pp 


0.171 


-q_pp 


0.171 


xal 


0.1 


Tdo_p 


2.9 


Tdo_j?p 


0.0 


Tqc_pp 


0.0 


Tad 


0.09954 


Ifni 


38.5 


H 


0.651 


PP 


2 


wbs 


376.99 


Vdb 


367.4235 


Pbs 

end 


2 . 5e6 



! This is an approximation 



! No data for subtransient T.C. 



Field Current for no load rated terminal voltage 



! 450 volts rms line to line 
! 2000 KW at .6 Power Factor 



rl_wye load 
R 0.2 
L 25e-6 
R1 1000 
end 

i 

switch_3p sw 
end 



»eed reg 


gov 




wnlo 


187.36 




wds 


31.69 




wdTepu 


-10.07 




TBS 


13262. 6 




T 9 


0.3275 




B 

end 


0 


! damping is ignored 


>lt reg v 


' reg 




Vfdbs 


52.56 ! 


Field Voltage for rated noload t 


K 


20.0 ! 


Transfer function gain 


Tvr 


0.15 ! 


Principle time constant 


Vfmin 


0 ! 


Minimum field voltage 


Vf max 


120.0 ! 


Maximum field voltage (clipping) 



end 



Figure 5.3-3 v.net : Network Description File 



v . net 

Herbert K. Doerry 
NODE C 

v3:v = sgen: vOa = sw:v0a 
i3 : i = sgen: iOa = sw: iOa 
end 

NODE B 



v_reg : vOa 



- 119 - 



v3 : v = swn 


T la = 


load : vOa 


i3 : i = sw : ila = 


load : iOa 


end 






NODE Mech 






v:theta — 


sgen : 


theta 


rv : wbs = 


377 


= v reg: wbs 


v : wm = 


sgen : 


wm = gov : wm 


v : wm dt = 


sgen : 


wm dt 


rv : s = 


0.04 


= gov:s 


end 






NODE ref 






v : Te 


sgen : 


Te = gov : Tm 


v : P s i_q = 


sgen : 


Ps i q 


v : P s i_d = 


saen : 


Psi“d 


rv:v0 = 


o'o = 


: sgen:v0n 


ri : il 




: load:i0n 


rvrlon = 


0.0 = 


: vOn 


end 






NODE field 






rv : f gv = 


0.0 = 


: v reg:v0f = sgenrvOf 


v : f v = 




v regrvlf = sgen:vlf 


ri:fgi = 




v regiiOf = sgen:i0f 


i:fi 




v regrilf = sgemilf 


end 






NODE Vreg 






rv : vbs = 


367.42 = v reg: vbs 


v : vt 




v regrvt 


v : ph = 




v reg:phase 


end 







Figure 5.3-4 v.init : Initialization File 



! v . init 

INorbert H. Doerry 
1 

INITIALIZE 



v__reg: iOf 
v_reg : il f 
sgen : iOf 
sgen : ilf 
sgen:psi d 
sgen : s_wm 
sgen : eq_p 
sgen : eq__pp 
END 



-38.499 
38 .499 
-38.499 
38.499 
1 

188.5 

1 

1 



i 



NODE VOLTAGE INITIAL I DAT IN 
C : v 367.4 

C : v_b -183.7 

C : v_c -183.7 

Mech: theta 0 
Mech:wm_dt 0 
ref:Te 0 

ref : Fs i_q 0 

ref : Ps i_d 1 

field: fv 52.56 
Vregrvt 367.4 
Vrec :ph 0 

end' 



Figure 5.3-5 v.sim : Simulation File 



! V . s im 

JNorbert H. Doerry 

i 

SIMULATION 
DISPLAY 
C: v 
C:v b 
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C : v_c 
sgen : Tepu 
s gen : vd 
sgen : vq 
sgen : id 
sgen : iq 
sgen : if d 
Vr eg : vt 
field : f v 
ref : Te 
Me oh : wm 
load : la 
end 



TIME STEP 


0.00025 


TMIN 


0 


TMAX 


8 


PRINT STEP 


0.002 


DELTA 


0.01 


DELTA MIN 


0.01 


CONVERGE 


le-10 


MAX ITER AT 
REFERENCE 


ION 50 



I : C: i 
END 

EXTERNAL INPUTS 
swrSwitch 0 0 
sw: Switch 1 0.01 
sw : Switch 0 4.0 
END 

I 

The results of the simulation are shown in figures 5.3-6 through 5.3-1 1. Figure 5.3-6 
shows the speed regulation of the governor. Notice the droop in frequency caused by the 
addition of the load (2.2% in this case). The frequency transient dies out within 4 seconds 
on both the application and removal of the load. The terminal voltage has interesting char- 
acteristics on both the addition and the removal of the load. On the application of the load, 
the terminal voltage experiences a negative voltage spike as the current builds up in the load 
inductance. On removal of the load, the network is in asymmetrical operation as each phase 
switch opens on the zero crossing of the current. Notice that the relatively high gain on the 
voltage regulator results in a small steady state error in the terminal voltage magnitude. Figure 
5.3-8 shows the field voltage as generated by the voltage regulator. Even with the large 
change in load and large voltage regulator gain, the field voltage magnitude remains within 
the clipping limits. 
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Figure 5.3-6 RPM vs Time 



Figure 5.3-7 Terminal Voltage vs Time 
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Figure 5.3-8 Field Voltage vs Time 



Figure 5.3-9 Tepu vs Time 
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Torque 



Figure 5.3-10 id and iq vs Time 



Figure 5.3-11 vd and vq vs Time 
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vd and vq 



5.4 Synchronous Generator: Two Phase Fault 

An electrical system casualty that can easily occur on shipboard systems is a two phase 
fault where two of the three lines of the distribution system are shorted together. This problem 
is difficult to solve analytically due to the asymmetrical nature of the resulting network. 
Figure 5.4- 1 shows the SEPSIP network congifuration used to solve this problem numerically. 
The network is a modification of the network used in section 5.3. The transmission line 
element was added to prevent potential problems with the voltage regulator model. The 
voltage regulator model calculates the terminal voltage of the synchronous machine assuming 
a nonzero balanced voltage. If the terminal voltage of all three phases goes to zero, there is 
thepossibity of the voltage regulator generating a singular Jacobian matrix. The transmission 
line assures a slightly positive voltage magnitude. 

Figure 5.4-1 Synchronous Generator: Two Phase Fault 




Figure 5.4-2 w.elm: Element Description File 



! v; . elir. 

! Herbert K. Doerrv 

synch__mach s gen 
:*:d 1.38 

>:q 0.26 

:-:d_p 0.2 5 

>:d_pp 0.171 
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r.q _pp 


0 .171 


xal 


0.1 


Tdo p 


2.9 


Tdo pp 


0.0 


Tqo_pp 


0.0 


Tad 


0 .09954 


Ifni 


36.5 


H 


0.651 


PP 


2.0 


whs 


376.99 


Vdb 


367.4235 


Pbs 


2 . 5e6 


end 




rl wve load 


R 0.2 




L 25e- 


6 


Rl 1000 




end 




t line 3p 


tline 


R .00001 


L 0.0 




Rl 1000 


.0 


end 




switch sw 


ab 


end 




switch sw 


be 


end 




speed reg 


gov 


wnlo 


167.36 


wds 


31 .69 


wdTepu 


-10 .07 


TBS 


13262.6 


Tg 


0.3275 


B 


0 


end 




volt reg 


v reg 


Vfdbs 


52.56 


K 


20.0 


Tvr 


0 . 15 


Vf min 


0 


Vf max 


120 


end 





I 



Figure 5.4-3 w.net: Network Description File 



w . net 

Norbert K. Doerry 



NODE C 



v3 : v = sgentvOa = 


tline:v0a = 


= v reg:v0a 


i3 : i = sgen:i0a — 


tline : iOa 






end 










NODE B 










v:v = tline: via 


= 


load : vOa 


= sw 


ab : vO 


v:v_b = tline :vlb 


= 


load : vOb 


= sw 


ab : vl 


v:v c = tline: vie 


= 


load : vOc 


= sw 


be : vl 


i:i = tline:ila 


= 


load : iOa 


= sw 


ab : iO 


i:i b = tline:ilb 


= 


load : iOb 


= sw 


ab : il 


i:i c = tline:ilc 


= 


load : iOc 


= sw 


be : il 


end 










NODE Mech 










v: theta = s gen: the 


:ta 






rv:wbs = 3~~ = v re 


r : 


wbs 






v : wm = sger. : wm 


= 


gev : wm 






v:wm dz. = sgen:wm 


_dt 








r v : s = .04= gov : 


s 








end 










NODE ref 










v : Te = sgen:Te 


II 

yQ 

o 

g 







v:Psi_q = sgen:Psi_q 



sw be : vO 



sw be : iO 
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0 



v : P £ i_d 
rvtvO = 0 
ri: il 
rv: Ion = 
end 

NODE field 
rv : f gv = 
vsfv 

r i : f g 1 = 

i : f i 
end 

NODE Vrey 
rv : vbs = 
v : vt = 
v : ph = 
end 



= sgen : Psi 
= sgen:vOn 
= loadiiOn 
= loadivOn 



d 



0.0 = v_reg:v0f 
v_reg : vlf 
v_reg : iOf 
v_reg : ilf 



sgen : vOf 
sgen : vl f 
sgen : iO f 
sgen : ilf 



367.42 = v_reg: vbs 
v_reg : vt 
v regrphase 



Figure 5.4-4 w.init: Initialization File 



w . in it 

Norbert H. Doerry 



INITIALIZE 

t 

v^reg: iOf 
v_reg : ilf 
v_reg: vt 
v_reg: Verr 
v reg:Vsig 
v_reg : theta 
gov : Tm_order 
gov : Tmp-u 
sgen : iOa 
sgen : iOb 
sgen : iOc 
sgen : iOf 
sgen s ilf 
sgen : s_theta 
sgen : s_wm 
sgen : wm dt 
sgen :psi_d 
sgen : psi_q 
sgen : eq^_p 
sgen : eq_pp 
sgen : ed_pp 
sgen : d_psi_d 
sgen : d_psi_q 
sgen : d_eq_p 
sgen : d_eq_pp 
sgen : d_ed_pp 
tline : iOa 
tline : iOb 
tline : iOc 
tline : il a 
tline : ilb 
tline : ilc 
tline : ia 
tline : ib 
tline : ic 
load : iOa 
load : iOb 
load : iOc 

load : vt 
load : vc 
load : ia 
load : ib 
load : ic 

END 



41.26 

-41.26 

366.15 

0.0034541 
0.069814 
0.12889 
0.41106 
0.41204 
-1697.5 

1442.6 

254 . 8 
-41.26 
41.26 
-0.38396 
184 .49 
0.048494 
1.0147 
-0.10438 
1.025 
1.0218 
0.035732 
-0.00067673 
2 . 2902 le-05 
-0.00066281 
0 
0 

1697.5 
-1442.6 

-254 . 8 
-1697.5 

1442.6 

254.8 

-1697.5 

1442.6 

254 . 8 

1697.5 
-1442.6 
-254 . 8 

3 2 9 . 4 9 

-288.53 

-50.957 

1697.5 

-1442.6 

-254.8 
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NODE VOLTAGE INITIALIZATION 
C : v 
C : v b 



C : v c 

B : v 
B : v_b 
B : v c 

Mech : theta 
Mech : wm 
Mech : wm_dt 
ref :Te 
ref : Psi_q 
ref :Ps i_d 
field : fv 
Vreg : vt 
Vreg : ph 



339.49 
-288.53 
-50 . 957 

339.49 
-288.53 

-50.957 

-0.38396 

184.49 
0.048494 
5464 .7 
-0.10438 

1.0147 

56.229 

366.15 

-.51287 



END 






EXTERNAL INPUTS INITIALIZATION 
sw_ab: switch 0 
sw^bc : switch 0 
END 



Figure 5.4-5 w2.sim: Simulation File 



! w2 . sim 

j 

SIMULATION 

t 

DISPLAY 
C: v 
C : v__b 
C : v_c 
sgen : Tepu 
sgen : vd 
sgen : vq 
sgen : id 
sgen : iq 
sgen : if d 
Vreg : vt 
field: fv 
ref :Te 
Mech : wm 
load : la 
END 

j 

TIME STEP 0.00025 



TMIN 0 

TMAX 4 . 5 

FRINT_STEP 0.002 
DELTA 0.01 

DELTA_MIN 0.01 
CONVERGE le-10 



MAX_ I TER AT I ON 50 
REFERENCE 
I : C : i 
END 

EXTERNAL INPUTS 

sw_ab: switch 1 0.5 
sw_ab : switch 0 1.5 
END 



The results of the simulation are shown in figures 5.4-6 through 5.4-11. Notice that 
the terminal voltage oscillates during the fault due to the method by which the voltage regulator 
determines the rms voltage. Figure 5.4-6 shows a high frequency oscillation of the generator 
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rotor during the fault. The field voltage clips at the maximum level which causes the terminal 
voltage to drop in magnitude during the fault. After the fault clears, the generator returns to 
the steady state condition within about three seconds. 

Figure 5.4-6 RPM vs Time Figure 5.4-7 Torque PU vs Time 
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Figure 5.4-8 vd and vq vs Time 



Figure 5.4-9 id and iq vs Time 
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id and iq Torqua 



Figure 5.4-10 Line Voltage 



Figure 5.4-11 Field Voltage 
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5.5 Synchronous Generator: Three Phase Fault 

The previous section simulated a two phase fault. This simulation shows the transient 
response of the synchronous generator due to a symmetrical three phase fault. The network 
is identical to the one used in section 5.4. The only change in the input file was the addition 
of two entries in the external input queue of the Simulation File. 

Figure 5.5-1 Synchronous Generator: Three Phase Fault 




Figure 5.5-2 w3.sim: Simulation File 



SIMULATION 

J 

DISPLAY 
C : v 
C : v_b 
C : v_c 
s gen : Tepu 
sgen : vd 
s gen : vq 
sgen : id 
sgen : iq 
sgen : if d 
Vreg : vt 
field: fv 




END 

j 

TIMERS TEP 0.00025 
TMIN 0 

TMAX 4 . 5 



- 130 - 



PRINT_STEP 0.002 
DELTA 0.01 

DELTA_MIN 0.01 
CONVERGE le-10 
MAX_ITERATION 50 
REFERENCE 
I : C : i 
END 

EXTERNAL INPUTS 

sw_ab: switch 1 0.5 
sw_bc: switch 1 0.5 
sw_ab : switch 0 1.5 
sw_bc: switch 0 1.5 
END 



The results of the simulation are shown in figures 5.5-3 through 5.5-8. Initially, the 
speed of the generator increases due to the sudden loss of load. This speed is controlled 
however, by the dynamics of the speed governor. During the short, the line voltage drops 
almost to zero. The voltage regulator responds to this by increasing the field voltage until 
clipping occurs at the preset value of 120 volts. The field voltage stays at this level well after 
the fault clears and until the line voltage approaches its reference. The torque characteristic 
is the typical response expected during a three phase fault. 

Figure 5.5-3 RPM vs Time Figure 5.5-4 Torque PU vs Time 
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Figure 5.5-5 vd and vq vs Time 



Figure 5.5-6 id and iq vs Time 



(SYNCH MACHINE* vd and vq vs Time 




(SYNCH MACRINE) Id and iq vs Tire# 
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Figure 5.5-7 Line Voltage 



Figure 5.5-8 Field Voltage 



(SYNCH MACHINE) Terminal Voltage (nss line) 




time (sec) 



(SYNCH MACHINE) Field Voltage 
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Vfd id and iq 



5.6 Paralleled Synchronous Generators: Switched Load 

Shipboard generators often operate paralleled with one another. This simulation shows 
the transient effects on two identical generators that are connected in parallel and subjected 
to a .4 per unit load for 4 seconds. The generators and load are identical to those used in 
section 5.3. Figure 5.6-1 shows the network structure. The transmission line element was 
inserted in parallel with the generator paralleling switch to prevent a singular system Jacobian 
matrix when the switch is opened. Without the transmission line, there would be two 
independent circuits when the switches are open and only one independent circuit with the 
switches closed. The problem stems from the requirement for one reference voltage subnode 
and one reference current subnode for each independent circuit. Adding a transmission line 
ensures there is always only one independent circuit. By assigning a large resistance to the 
transmission line, its effect on the solution is negligible. 

Figure 5.6-1 Paralleled Synchronous Generators 




Figure 5.6-2 x.elm : Element Description File 



! x.elm 

! Norbert H. Doerry 
synch_mach sqen a 



xd 


1 . 3 B 


xq 


C .26 


xd_p 


0.25 


xd_pp 


0.171 


xq_pp 


0.171 


xal 


0.1 


Tdo_p 


2.9 


Tdc pp 


0.0 


Tqc_~p 


0.0 
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Tad 


0.09954 


Ifni 


36.5 


H 


0.651 


PP 


2 


whs 


376.99 


Vdb 


367.4235 


Pfcs 


2 . 5e 6 


end 

i 




svnch ma 


oh saen b 


~ ::d 


1.38 


:-:q 


0.26 


:-:d_p 


0.25 


:-:d_pp 


0.171 


:-:q_pp 


0.171 


:-:al 


0.1 


Tao p 


2.9 


Tdo_pp 


0.0 


Tqo_pp 


0.0 


Tad 


0.09954 


Ifni 


38.5 


H 


0.651 


PP 


2 


wbs 


376.99 


Vdb 


367.4235 


Pbs 


2 . 5e 6 


end 





1 



speed_reg gov_a 



wnlo 


187.36 


wds 


31.69 


wdTepu 


-10.07 


TBS 


13262.6 


Tg 


0.3275 


B 


0.0 



end 



i 



speed reg 


aov b 


wnlo 


187.36 


wds 


31.69 


wdTepu 


“10.07 


TBS 


13262.6 


Tg 


0.3275 


B 


0.0 



end 



! 



volt reg 


v reg a 


Vfdbs 


52.56 


K 


20.0 


Tvr 


0 .15 


Vf man 


120 


Vfmin 


0 



end 



! 



volt reg 


v recr b 


Vfdbs 


52 .56 


K 


20.0 


Tvr 


0 . 15 


Vfma:-: 


120 


Vfmin 


0 



end 

i 

rl_wye load 

R C.2 

P.l 1000 
end 

j 

switch_3p sw_ld 
end 

switch_3p sw gen 
end 
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t_line_3p tline 
“R 100000 
R1 0 
L 0 
end 



Figure 5.6-3 x.net : Network Description File 



:: . net 



NETWORK 



NODE C 
v3 : v 
i3 si 
end 

NODE B 
v3 : v 
i3:i 
end 

NODE A 

v3:v = sgen_a:v0a = sw_ld:v0a 
i3:i = sgen_a:i0a = sw_ld:i0a 
end 

NODE Mech a 



sgen_b: vOa = sw_gen:v0a 
s gen_b:i0a = sw_gen:i0a 



sw_ld:vla = lcad:v0a 
sw ld:ila = load:i0a 



= tline:v0a 
= tline:i0a 



sw_gen : via 
sw_gen : i la 



v: theta = 


sgen a: theta 


rvrwbs = 377 = 


v reg a:wbs 


v : wm = 


sgen a : wm = < 


v : wm dt = 


sgen a : wm dt 


rv : s = 0.04 = 


gov a : s 


end 




NODE Mech_b 




v : theta = 


sgen brtheta 


rv:wbs = 377 = 


v reg b:wbs 


v : wm = 


sgen b:wm = < 


v : wm dt = 


sgen b : wm dt 


rv : s = 0.04 = 


gov b : s 


end 




NODE ref a 




v : Te 


sgen a : Te = < 


v:Psi_q = 


sgen a:?si_q 


v : Psi d = 


sgen a:Psi d 


rv : vO = 0.0 


sgen a:v0n 


end 




NODE ref_b 




v : Te 


sgen b : Te = • 


v : P s i q = 


sgen b:Psi q 


v:Psi_d = 


sgen b:Psi d 


rv : vO = 0.0 = 


sgen b:v0n 


end 




NODE ref Id 




ri:il = load:i0n 


rvrlon = 0.0 = 
end 


load : vOn 


NODE field_a 




rv : f gv = 0.0 = 


v reg a:v0f = 


v : f v = 


v reg a:vlf = 


ri : f ai = 


v reg ariOf : 


isfi = 


v reg a : i If : 


end 




NODE field b 




rv : f gv = 0.0 = 


v reg b : v 0 f = 




v reg bsvlf : 


ri : f gi = 


v reg bsiOf ; 


i : f i = 


v reg brilf : 


end 





gov 



a : Tm 



fc : Tm 



gen_a : vO f 
gen_a : vlf 
gen_a : iO f 
gen_a : i 1 f 



gen_b : vOf 
gen_b : vlf 
gen_b : iOf 
aen b:ilf 



NODE Vreg_a 

rv : vbs = 367.42 = v reg a : vbs 



v_reg_b : vOa 



tline: via = v_reg_a:v0a 
tline : i la 
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vsvt = v_reg_a:vt 
v:ph = v_reg_a : phase 
end 

NODE Vreg_b 

rv : vbs = 3 67.42 = v_r e g_b : vb s 
v:vt = v_reg_b:vt 
v:ph = v_reg_b rphase 
end 



Figure 5.6-4 x.init : Initialization File 



! . init 

INITIALIZE 



t 



v reg a:i0f 


38.499 


v reg arilf 


-38.499 


sgen a:i0a 


0 


sgen a:i0b 


0 


sgen a:i0c 


0 


sgen a:i0f 


-38.499 


sgen a:ilf 


38.499 


sgen a:s theta 


0.0 


sgen a:s wm 


188.5 


sgen a : s wm dt 


0 


sgen a:psi d 


1 


sgen a:psi_q 


0 


sgen a:eq__p 


1 


sgen a:eq_pp 


1 


sgen a:ed_pp 


1 


gov a:Tm order 


0 


gov a : Tmpu 


0 


v reg b:i0f 


38.499 


v req b : il f 


-38.499 




sgen b:i0a 


0 


sgen b:i0b 


0 


sgen b:i0c 


0 


sgen b:i0f 


-38.499 


sgen_b : ilf 


38.499 


sgen b:s theta 


0.0 


sgen b:s wm 


188.5 


sgen b : s w T m dt 


0 


sgen b:psi d 


1 


sgen b:psi q 


0 


sgen b:eq_p 


1 


sgen b:eq_pp 


1 


sgen b:ed pp 


1 


gov b:Tm order 


0 




gcv b:Tmpu 


0 


END 



! 



NODE VOLTAGE INI TIAL IZATON 



Csv 3 67.4 

C : v__b -183.7 

C : v_c -183.7 

A: v 367.4 

A:v_b -183.7 

A : v_c -183.7 

Mech_a: theta 0 
Mech_a : wm__dt 0 
Mech_a:wm 188.5 

ref_a : Te 0 

ref_a:?si_q 0 
ref_a:Psi_d 1 
f ieid_a : fv 52.56 

Vreg_a : vt 367.4 
Vreg_a:ph 0.0 

Mech_b: theta 0 
Me ch_b : wm dt 0 
Me ch b : wm 18 8.5 
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re f_b : Te 0 

ref_b : Ps i_q 0 

ref_b:Psi_d 1 
field_b:fv 52.56 
Vreg__b:vt 3 6 7.4 
Vreg_b:ph 0.0 

end" 

t 

EXTERNAL INPUTS INITIALIZATION 
sw_ld: Switch 0 
sw_gen : Switch 0 
END ~ 



Figure 5.6-5 x2.sim : Simulation File 



! ;:2 . sim 



SIMULATION 

t 

DISPLAY 
A : v 



A: v_b 
A. : v_c 

sgen_a : Tepu 
sgen_a : vd 
sgen_a : vq 
sger._a : id 
sgen^a : iq 
sger._a : if d 
Vreg_a : vt 
f ield_a : fv 
ref_a : Te 
Mech a : wm 
load : la 
sgen_b : Tepu 
sgen_b : vd 
sgen b : vq 
s gen_b : id 
sgen_b : iq 
sgen_b : if d 
Vreg_b : vt 
f ield_b : fv 
ref_bTTe 
Me ch_b : wm 
END 



TIME STEP 
TMIN” 

TMAX 

PRINT_STEP 

DELTA 

DELTA_MIN 

CONVERGE 



0.00025 

0 

8 

0.002 

0.01 

0.01 

le-10 



MAX_I TERAT ION 50 
REFERENCE 



I : A: i 
END 



T 



EXTERNAL INPUTS 

t 

sw_gen j S witch 1 0.004 
sw_ld: Switch 0 0.0 
sw_lc: Switch 1 0.C1 
sw_ld: Switch 0 4.0 
END 
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The results of the simulation are shown in figures 5.6-6 through 5.6-11. Since the 
generators are always in parallel when the load switches on and off, the response is similar 
to the results in section 5.3 but with smaller deviations due to the addition of the second 
generator. 

Figure 5.6-6 RPM vs Time Figure 5.6-7 Terminal Voltage vs Time 



(SYNCH MACHINE) PTM v* Tin* 
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Figure 5.6-8 Field Voltage vs Time 



t f a • c ) 

Figure 5.6-9 Tepu vs Time 
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Figure 5.6-10 id and iq vs Time 



Figure 5.6-11 vd and vq vs Time 
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5.7 Paralleled Synchronous Generators: Switched Load 

Shipboard generators often operate paralleled with one another. This simulation shows 
the transient effects on two identical generators that are connected in parallel and subjected 
to a .4 per unit load for 4 seconds. After the 4 seconds, one of the generators is detached 
from the load. The generators and load are identical to those used in section 5.6. Figure 
5.7-1 shows the network structure which is identical to the structure in the previous section. 

Figure 5.7-1 Paralleled Synchronous Generators 




The input file for this simulation is identical to the input file described in section 5.6 
with the exception of minor changes to the simulation file. 

Figure 5.7-2 x3.sim : Simulation File 



! :-:3 . sim 

j 

SIMULATION 

j 

DISPLAY 
A: v 
A : v_b 
A : v c 

sgen_a : Tepu 
sgen_a : vd 
sgen_a : vq 
s gen_a : id 
sgen_a : iq 
sgen_a : if d 
Vreg_a : vt 
f ield_a : f v 
it a r a r Te 
Me ch_a : wm 
load : la 
sgen_b : Tepu 
sgen_b : vd 
sgen_b : vq 
sgen_b : id 
sgen_b : iq 
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sgen_b : i f d 
Vreq_b : vt 
f iel d_b : fv 
ref_b:Te 
Me ch_b : wm 
END 



TIME STEP 


0.00025 


TMIN 


0 


TMAX 


8 


PRINT STEP 


0.002 


DELTA 


0.01 


DELTA MIN 


0.01 


CONVERGE 


le-10 


MAX ITERATION 50 


REFERENCE 





I : A : i 
END 



EXTERNAL INPUTS 

j 

sv^aen: Switch 0 0.0 
sw_gen : Switch 1 0.004 
sw_ld: Switch 0 0.0 
sw_ld: Switch 1 0.01 
sw_cren : Switch 0 4.0 
END 



i 



The results of the simulation are shown in figures 5.7-3 through 5.7-8. For the first 
four seconds, the simulation is identical to the previous simulation. When the switch con- 
necting the two generators opens however, the two generators have different transient 
responses as they attain their new steady state conditions. Figure 5.7-3 clearly shows the 
effect of the droop characteristic of the speed governor. 

Figure 5.7-3 RPM vs Time Figure 5.7-4 Terminal Voltage vs Time 
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Figure 5.7-5 Field Voltage vs Time 



Figure 5.7-6 Tepu vs Time 
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Figure 5.7-7 id and iq vs Time 



Figure 5.7-8 vd and vq vs Time 



(SYNCH MATH I NT ) id and iq vs Tire® 




(SYNCH MACBINt) vd and vq vs Tim© 




- 142 - 



.05 
.00 
0.05 
0 . 1 
0.15 
0.2 
0 .25 
0.3 
0 . 35 
0.4 
0.45 



. 1 

. 9 
.8 
.7 
. 6 
.5 
. 4 
.3 

. 1 

0 . 1 



vd and vq Torqu© 



143 



CHAPTER 6 



CONCLUSIONS 

6.1 Assessment of SEPSIP 

In its present form, SEPSIP is useful for analyzing simple and moderately complex 
electrical networks. Since the time required for a simulation is proportional to the cubic of 
the order of the system (Gaussian Elimination), large simulations require an unreasonable 
amount of time. Careful design of the network to minimize the system order can help tre- 
mendously in reducing the execution time of SEPSIP. Other possible methods of improving 
the speed of SEPSIP include running the program on a faster computer and making simple 
changes to the program. The following section provides details on several options for 
increasing SEPSIP’s speed. 

The decision to use SEPSIP or a general simulation language such as ACSL for the 
simulation of shipboard systems depends on what exactly is desired to be modeled. If the 
desire is to simulate the respose of a new type of device, ACSL may be superior. Writing 
robust device driver routines for SEPSIP that are fast, stable and accurate can be difficult 
and time intensive. Creating the device models on ACSL should normally require less time 
since physically writing and compiling code is not required. Once the device models have 
been created however, the advantage shifts greatly to SEPSIP. SEPSIP’s built in provisions 
for organizing and interconnecting a number of devices into a network are far superior to the 
capabilities resident in ACSL. ACSL is not really designed to handle network architectures 
and forcing it to do so results in large unmanageable input files that are hard to debug. In 
short, ACSL is better at modeling individual devices while SEPSIP is far superior in orga- 
nizing models into networks. 
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6.2 Future Improvements 

SEPSIP, like any other computer program, will never be completed. There will always 
be a number of possible improvements that only take time and effort to impliment. The 
following sections detail some of the possible improvements to the present version of SEPSIP 
that would greatly extend its utility. 

6.2.1 Variable Time Step 

Many simulations would run much faster if a variable time step were incorporated. 
Presently, the time step must be small enough to capture the transient response of the fastest 
time constant of interest. However, since the fast time constant is only important for a small 
time period after a disturbance, using the small time step for the remaining time is very 
inefficient. When only slow time constants are important, larger time steps can be used. 

One way of implementing variable time steps in S EPSIP would be to include the option 
of adding the time step variable to the EXTERNAL INPUT subsection of the SIMU- 
LATION section. In this manner the time step variable, its new value, and the time that 
the new value takes effect can all be specified. 

6.2.2 Replace Gaussian Elimination 

The Newton-Raphson method used to solve the system of nonlinear equations requires 
the solution of the linear equation J x = v. Presently, SEPSIP uses Gaussian Elimination 
with partial pivoting to solve for x. For an nth order system, the number of floating point 
multiplication operations is proportional to n'\ Since x is only used to produce a correction 
for the Newton-Raphson method, there is no need to solve exactly for it. An iterative method 
for solving for x can cut down the computation time considerably. The Gauss-Seidel method 
for example, requires on the order of only n 2 multiplication operations for each iterations. 
If the number of iterations can be held well below the order of the system, a speed gain will 
be realized. 
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Giving the operator the choice of which method to use would be easy to implement 
and would not add any extra time to the execution of the simulation. This way the operator 
can experiment to determine which is the better method for the simulation under study. 

6.2.3 Reuse of Jacobian Matrix 

SEPSIP presently recalculates and inverts the Jacobian matrix for each iteration of 
every time step. If the Jacobian matrix does not change very fast, there is no need to 
recalculate it for each iteration. Allowing the user to specify how many times the Jacobian 
matrix is used before it is recalculated would greatly increase the speed of the program for 
certain simulations. 

6.2.4 Output Variables and Output Subnodes 

One way to increase the speed of a simulation is to decrease the order of the system 
by incorporating output variables and output subnodes. An output variable would be 
explicitly defined by an element and connected to one or more input variables through the 
output subnode. The output subnode would equate all of the input variables to the output 
variable. For this reason, there would not be a system variable associated with the output 
subnode. Presently, all the variables would have to be implicitly defined and connected 
with a voltage subnode that adds a system variable. 

6.2.5 Action Files 

Action Files are text files that contain a list of SEPSIP commands. When an Action 
File is called from within SEPSIP, control would pass from keyboard entry to the commands 
contained in the file. Once all of the commands have been executed, control shifts back to 
keyboard entries. This feature allows one to run a number of long simulations sequentially 
without reamaining at the computer terminal. 

Modifying SEPSIP to accomodate Action Files would require replacing all calls to 
the system function gets with a call to another routine that would determine which input 
stream to use. The code would look similar to: 



- 146 - 



^include <stdio.h> 
tinclude "doerry.h" 

/* structure for keeping track of the present stream */ 
typedef struct Strm 
{ 

FILE * in- 
struct Strm *last; 

} 

STRM; 

/* This is the initialization code which sets the 
scream to stdin */ 

static STRM ^ strm; 

init_strm ( ) 

{ 

char *calloc () ; 

strm = (STRM *) calloc ( (unsigned) 1 , sizeof (STRM) ) ; 
strm->in = stdin; 
strm->last = NULL; 

} 

/* edit_strm sets the current stream to the value passed 
to it */ 

edit_strm (stm) 

FILE *stm; 

{ 

char *calloc ( ) ; 

STRM *temp; 

temp = (STRM *) calloc ( (unsigned ) 1 , sizeof ( STRM) ) ; 

temp->in = stm; 
temp->last = strm; 
strm = temp; 

} 

/* gets_in() replaces gets() as the routine for reading 
line from stdin */ 

char *gets_in (string) 
char ^string; 

{ 

int i; 

i = f gets ( string, MAX CHAR, strm- >in) ; 

/* see if read to the end of the file */ 
while (i == NULL && strm->last != NULL) 

{ 

strm = strm->last; 

i = fcjets (string, MAX CHAR, strm->in) ; 

} 

/* get rid of trailing carriage return */ 
i = strlen (string) - 1; 

if (i >= 0 && string[i] == '\n f ) string [i] = NULL; 
return string; 

} 



in a 
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6.2.6 Integrated Graphics 

SEPSIP was intentionally written without any graphics to improve the portability of 
the code. In general, graphic subroutines tend to be machine specific and therefore require 
much revision when transferred to another computer. SEPSIP has circumvented this problem 
somewhat by using a totally separate plotting program (Norplot) to display the data. 
Unfortunately, the data can only be plotted once the simulation is totally finished. It would 
at times be beneficial to observe the display variables in a graphical form as the simulation 
progresses. If the simulation goes unstable, the program can immediately be halted instead 
of waiting for its completion. 

Portability could still be maintained to a degree by using only a few general routines 
that could be easily modified for whatever system SEPSIP is installed on. These routines 
would include 

terminit() Initialize the Graphics Screen 

clrscmO Clear the Graphics Screen 

move(x,y) Move to (x,y) 

draw(x,y) Draw to (x,y) 

windset(xmn,xmx,yrrm.ynix) Set the coordinates of the comers 

windget(xnm.xmx,yrnn.ymx) Get the coordinates of the comers 

g_puts(str.height,rot) Print a string on the Graphics Screen 

termend() End the Graphics Screen 

These routines should all be contained in one file that can rewritten to conform to the 
graphics interface of each particular machine. 

6.2.7 Implement external variable ’types’ 

The original concept for SEPSIP was to be able to specify the external input and output 
variables to be one of four types: floating point, integer, Boolean, and Switch. Presently, 
only the floating point type is truly implemented. Adding the capability to recognize and 
print out the four types would improve the ability of the user to specify his or her desires 
and to understand the results of the simulation. A switch being on is more informative than 
a switch having a value of 1 .0. Likewise a variable called overspeed_sensor having a value 
of false is more informative than having a value of 0.0. 
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6.2.8 Optimization for speed 

While a conscious effort was made to write efficient code, there is still plenty of room 
for improvement. There are a number of places where speed was sacrificed for clarity in 
reading the source code. In any software project, there is always the conflict between writing 
fast routines, and routines that can be easily understood. Usually it is a good idea to initially 
write understandable code that can easily be debugged. If the resulting code runs too slowly, 
the code can always be optimized. SEPSIP is presently at this state and requires some 
optimization to improve its performance. 

6.2.9 Check for Recursive INCLUDE Files 

The present version of SEPSIP does not check for recursive INCLUDE statements 
where a file tries to include itself or a file above itself in the stack of include files. Con- 
sequently, it possible to construct an input file that will cause SEPSIP to enter an infinite 
loop as it recursively opens the same files over and over again. Normally this is not a 
problem since for clarity the input file structure should not be very complex and any recursion 
would therefore be easily noticed. However, this condition should not be allowed to exist 
and SEPSIP should check for it. 

6.2.10 Break Key 

Once a simulation begins in the present version of SEPSIP, the only way to terminate 
the simulation before it is completed is to terminate the execution of the program with a 
"control c". Since a simulation can take some time to complete, it would be useful at times 
to be able to stop a simulation in the middle by depressing a specific key, observe some of 
the internal variables, and possibly continue the simulation. Unfortunately, there is no 
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standard way in the C programming language to determine if a key has been depressed 
without the user entering a carnage return 1 . Most systems do provide a way of accomplishing 
such "unbuffered IO" but the implementations are very' system dependent. 



1 C normally employs buffered input where the characters a person types in from the key- 
board are not available to the program until the return key is depressed. This allows the 
user to edit the input line before the program has access to it. A consequence of buffered 
input is that when a program requests input from the keyboard, the program waits until a 
return is entered. In this case, we do not want the program to wait for a return because 
the operator would have to hit the return key every time the program checks for a charac- 
ter. 
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APPENDIX A 



GLOSSARY 

BALANCING THE SYSTEM 

Balancing the System refers to the process of varying the input variables until all of the 
implicit variables for all of the elements are within tolerable limits of zero. When the Mean 
Square error of the implicit variables are less than the CONVERGE limit, the system is 
considered balanced. 

CONSTITUTIVE EQUATIONS 

Constitutive equations describe the relationships between the input variables, state 
variables, parameters, and external input variables of a device. For many devices, the con- 
stitutive equations are used to define implicit variables that have a value of zero when the 
constitutive laws are satisfied. 

DEVICE 

A Device is a type of electrical or mechanical machinery that can be included in a network 
description. The device is described by a number of constitutive equations that relate input 
variables to state variables, parameters, and external input variables. Examples of devices 
include resistors, synchronous generators, reduction gears, turbines and switches. 
ELEMENT 

An Element is a specific example of a device that has its own name and parameter values 
associated with it. A resistor for example, would be a device while R2 which has a value of 
10 K ohms would be an element. 

EXTERNAL INPUT VARIABLE 

An External Input Variable allows the operator to specify an input to an element 
externally from the network description. The external input variables are specified in a Queue 
that is specified in the Simulation section of the input file. External input variables can also 
be initialized in the Initialize section. 
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EXTERNAL OUTPUT VARIABLE 



External Output Variables are variables generated by an element that the operator may 
chose to display during the simulation. Only external output variables, external input variables, 
and voltage subnode voltages can be displayed. 

IMPLICIT VARIABLE 

Implicit Variables are calculated by each element from the input variables, parameters, 
state variables, and external input variables. The implicit variables have a value of zero when 
the constitutive laws governing the element are satisfied. 

INPUT VARIABLE 

Input Variables are used by the device descriptions to generate the implicit variables. 
Within the device description, the input variables are implicitly defined. Values are assigned 
to input variables by the network description. 

JACOBIAN MATRIX 

A Jacobian Matrix contains the partial derivatives of the implicit variables with respect 
to the input variables. In SEPSIP each element generates its own Jacobian Matrix. From the 
elemental Jacobian Matrices, a system Jacobina Matrix is generated that contains the partial 
derivatives of all the implicit variables with respect to all of the system variables. 

KEYWORD 

A Keyword is a word that is used by SEPSIP to delimit sections of the input file. 
Keywords are case insensitive and should not be used as Element names or Node names. 

KIRCHHOFF’s LAWS 

Kirchhoff's V oltage and Current Laws determine the relation of currents and voltages 
at an electrical node. For a number of elements that are attached to a node, the sum of all the 
currents entering the node must equal zero. Furthermore, the voltage at a node is the same 
for each of the elements. 

NETWORK 
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A Network specifies the interconnection of elements within a simulation. In SEPSIP, 
the Network is defined by assigning input variables to one of four types of subnodes that are 
in turn grouped into nodes. 

NODAL EQUATIONS 

Nodal Equations are the mathematical representations of Kirchhoff’s Laws. The nodal 
equations are used to relate the input variables of all the elements of the system to the system 
variables. 

NODE 

A Node in electrical terms is a connection between terminals of two or more electrical 
elements. Associated with each node are two expressions which are mathematical statements 
of Kirchhoff’s voltage and current laws. In SEPSIP, these mathematical relations are assigned 
to subnodes. A SEPSIP Node is used to group subnodes into easily understood groups. An 
Electrical Node is represented in SEPSIP by a SEPSIP Node having a voltage subnode and a 
current subnode. 

PARAMETER 

A Parameter is used to define an element as a specific example of a device. Parameters 
are assigned values in the first section of the SEPSIP input file and can not be changed during 
the simulation. 

STATE VARIABLE 

State Variables are variables internal to an element whose value at the end of the last 
time increment are saved and available. State variables are normally used for integration and 
differentiation. For elements that are described by state machines (such as circuit breakers), 
state variable can also be used to indicate the present state of the element. 

SUBNODE 

A subnode is used in SEPSIP to define the relation between the element input variables 
attached to it. There are four types of subnodes each of which specify a different relation for 
the attached variables. 
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SYSTEM JACOBIAN MATRIX 

The system Jacobian matrix contains the partial derivatives of the implicit variables 
with respect to the system variables. This matrix is used to create corrections to the sytem 
variables which in turn are used to generate input variables that satisfy the constitutive relations 
of each element. 

SYSTEM VARIABLE 

The system variables are a set of independent variables from which all of the input 
variables of the elements can be derived from. The number of system variables must equal 
the total number of implicit variables. The system variables are defined by the four types of 
subnodes. 
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APPENDIX B 



INSTRUCTIONS FOR ADDING DEVICES 

Adding a device to SEPSIP is a five pan process. First, a device driver routine must be 
written in the C programming language that calculates the implicit and external output variables 
along with the Jacobian matrix. The second step is to modify a special input file which SEPSIP 
uses to assign the number and variable names for each type of variable (state, input, etc.). The 
third step modifies an include file which notifies SEPSIP of the existence of the device and 
the name of the routine written in the first step. The fourth step involves adding the device 
driver file name to the Makefile. The Makefile assists in the recompilation procedure 
accomplished in the final step. 

B.l Write Device Driver Routines 

The major role of the device driver routine is to calculate implicit variables based on 
the values of input, external input, state, old_state, and parameter variables in addition to the 
current simulation time increment. The routine can also calculate external output variables 
and a Jacobian matrix. The device driver routine may change the values of the implicit, 
external output, and state variables. Parameter, input, old_state, and external input variables 
should not normally be changed by device driver routines. 

B.1.1 Arguments 

A device driver routine should have the format shown in Figure B.l-1 

Figure B.l-1 Device Driver Routine 



/* f_dev__a.c */ 

#include <stdio.h> 

^include <math.h> 

#include "doerry.h" 

/* The variables should be defined here using the define directive */ 



^define 


vO 


e->con . in ( 0 ] 


r define 


v 1 


e->con . in [ 1 ] 


t define 


iO 


e->con . in [ 2 ] 


= define 


il 


e->con . in [2 ] 


t define 


va 


e->con . state 


#def ine 


va 


eld e'>con.old_s' 


f define 


F. 


e->con . pa ram [ 0 ] 
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#define II e ->con . implicit [ 0 ] 



#define in__a e->con . ext_in [ 0 ] 

#define out_a e->con . e::t_out [ 0 J 

dev_a ( e , dt ) 

ELEMENT *e; 
double dt; 

{ 

/* the code should be located here */ 

} 

The define directives are optional but their use greatly eases the readability of the 
program. The ELEMENT structure along with the CONNECT structure are defined in 
doerry.h. 



Figure B.l-2 ELEMENT and CONNECT structures 

/* extracted from doerry.h */ 

/* These are the external input and external output types used 
in the type_ext_in and type_ext_out arrays of the Connect 
structure. These types are presently unimplemented in SEPSIP 

*/ 

#def ine BOOLEAN 0 
#def ine SWITCH 1 
#def ine INTEGER 2 
#def ine FLOAT 3 

/* The CONNECT structure holds arrays of variables associated 



with each element */ 
tvpedef struct Connect 

f 

int nbr inputs; 








/* 


Number of input variables 


*/ 


int nbr states; 


/* 


Number of internal states 


V 


int nbr implicit: 


/* 


Number of implicit equations 


*/ 


int nbr ext in; 


/* 


Number of external input variables 


*/ 


int nbr ext out; 


/* 


Number of external output variables 


*/ 


int nbr_param; 


/* 


Number of parameters 


*/ 


double *in; 


/* 


pointer to array of input variables 


*/ 


double Estate; 


/* 


pointer to array of state variables 


*/ 


double *old state; 


/* 


pointer to array of old state variables 


*1 


double * implicit; 


/* 


pointer to array of implicit variables 


*/ 


double *ext in; 


/* 


pointer to array of external input 








variables */ 




double *ext out; 


/* 


pointer to array of external output 
variables */ 




double f param; 


/* 


pointer to array of parameters 


*/ 


double *init state; 


/* 


pointer to array of initial values for 








state variables */ 




double *init ext in; 


/* 


pointer to array of initial values for 








external input variables */ 




double *init in; 


/* 


pointer to array of initial values for 








input variables */ 




double *jacob in; 


/* 


pointer to Jacobian matrix of implicit 








variables with respect to input 
variables */ 




int jacob switch; 


/* 


= 1 if Jacobian calculated by function 








= 0 if Jaccbian calculated externally 


* / 


int '"type ext in; 


/* 


pointer to array of external input types 


*/ 


int "type ext out; 


I* 


pointer to array of external output type 


£ r / 


int *imp index; 


/* 


pointer to array cf indexes for itab 




} 

CONNECT; 




array */ 
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tvpedef struct Element 

f 

int serial; /* serial number of element (unused) */ 

char *name; /* pointer to name of element x / 

struct Connect con; /* Connect structure */ 

struct Device ^device; /* Pointer to DEVICE structure which contains 

the names of all the variables along with 
the starting address of the device routine 

V 

int flag; /* = 1 if element is used in the network 

= 0 if element is not used in the network */ 

} 

ELEMENT; 

B.1.2 Select number and types of variables 

One of the first choices one must make when writing a device driver is the number of 
each type of variable. SEPSIP allocates only enough memory for each array to hold the 
number of variables specified in the Device Input File (see section B.2). The size of the 
allocated arrays are specified by the nbr_* variables in the CONNECT structure. Changing 
the nbr_* values will not reallocate the arrays and therefore should not be done. 

Using the define directive as discussed in the previous section is a good way of 
assigning understandable labels to the memebers of the variable arrays. It is also a good 
idea to use the same name with both the define statement and the Device Input File (Section 
B.2). 

B.1.3 Calculate Implicit variables 

The heart of the device driver routine is the calculation of the implict variables. The 
calculations can involve any of the variables contained in the ELEMENT structure and the 
time incremnt dt. Generally, one should always check and write appropriate code for divide 
by zero situations. 

B.1.4 Calculate State Variables 

The state variables that are specified in the current time step are moved to the old_state 
variable array once the system is balanced. In this manner, one can store information that 
will be required in the following time increment. 
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B.1.5 Calculate External Output Variables (optional) 



External Output variables allow the generation of variables that are not directly used 
in calculations but may be of interest to the user in monitoring the simulation. The original 
concept for SEPSIP was to be able to specify the external output variable to be one of four 
types, but presently only the FLOAT type is implemented. The typing refers only to the 
manner in which the variables are displayed and not to the way in which they are stored. 
B.1.6 Calculate Jacobian Matrix (optional) 

Calculating the Jacobian matrix within the device driver routine can greatly increase 
the speed of the simulations. The variable e->con.jacob_switch is used to indicate whether 
or not the Jacobian is calculated, if e->con.jacob_switch is zero, the Jacobian is not cal- 
culated by the routine. Otherwise, the Jacobian is calculated by the driver routine. 

Each element of the Jacobian array is the partial derivative of an implicit variable with 
respect to one of the input variables. e->con.jacob_in[i + N * j] refers to the partial of 
e->con.impIicit[i] with respect to e->con.in[j] where N = e->con.nbr_implicit is the total 
number of implicit variables. 

B.2 Modify Device Input File (three phase.input) 

SEPSIP uses in input file to determine how many variables of each type should be 
allocated and the names of those variables. Each device must have an entry of the form 
shown in figure B.2-1 . Appendix C includes two examples of input files. 

Figure B.2-1 Device Input File Entry 

NAME device_name 
INPUTS 3 

input_name_l 
input_name__2 
input_name_3 
STATES 2 

state__name_l 
st. ate_name_2 
IMPLICIT 2 

imp licit_name__l 
implicit name 2 
EXTERNAL IN 3 

float ext_in_l 
sv:itch ext_in_2 
integer e:-:t_ir._3 
EXTERNAL CUT 2 

float ext out 1 
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float e::t_out_2 

PARAMETERS 2 
param_name_l 
param__name_2 

END 

The number following the variable type indicates how many variables of that type are 
listed. 

For the external input and external output variables, a type indicator must be specified 
before the name of the variable. Legal types are BOOLEAN, SWITCH, INTEGER, and 
FLOAT. In the present version of SEPSIP, this indicator is ignored. 

The variable names should all be unique within a device description. This means that 
one should not give an implicit variable the same name as an input variable. Some reuse of 
variable names is possible, but doing so can lead to much confusion. 

B.3 Modify penner.h 

The penner.h include file has two purposes. The first is to specify the names of the 
device input files and the number of devices described in these files. The second purpose is 
to associate device names with the device driver routines. Appendix C contains the current 
version of penner.h. Figure B.3-1 shows a simplified version of penner.h 

Figure B.3-1 penner.h example 

/* penner.h */ 

typedef int ( *FUNCTION_PTR) (); 

^define NBR_DEV_FILES 2 /* number of device input files */ 

/* specify the names and paths of the device input files */ 

static char *device_f ile [ ] = 

{ 

”/mit/13 .411/sep sip/ three_phase . input” , 

”/mit/13 .411/ sepsip/one_phase . input” 

}; 

/* specify the number of devices described in each of the 
above files */ 

static int nbr__device f ile [ ] = 

{ 

3 

l’ 

1 ; 

/* specify the names of the devices as declared in the 
the device input files */ 
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static char *device_name [] = 
{ 

”t_line_3p", 

"rl_wye" , 

" gen_synch_3p" , 

"switch" 



/* specify the device driver routine corresponding to each of 
the above named devices */ 

^define FO t_line_3p 
r define FI rl_wye 
^define F2 gen_synch_3p 
#define F3 spst^switch 

/* declare functions */ 

int FO () ; 
int FI () ; 
int F2 (); 
int F3 () ; 

/* declare function pointer array */ 

static FUNCTION_PTR dev_fnctn[] = 

{ 

FO, 

FI, 

F2 , 

F3 

} 

The order of the device names in the device_name array should be the same as the 
order of the corresponding device driver routines in the dev_fnctn array. 

B.4 Modify Makefile 

Most computer systems include a Make utility for assisting in the management of 
software projects. The Make utiltitv operates on a data file which in UNIX is usually named 
Makefile. The Makefile contains instructions as to which files should be compiled and linked 
in order to create an executable program. The Make utility uses these instructions to compile 
only those files that have changed since the last compilation. If only one file is edited, only 
that one file is recompiled and linked to the other object files. For this reason. Make can 
considerably reduce the compilation time of a large program. Figure B.4-1 shows an example 
of a Makefile. 
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Figure B.4-1 UNIX Makefile Example 



FUNCO= f_t_line_3p . o f_rl_wye.o f_gen_synch_3p . o f_spst_switch . o 
ORJB= check_name . o commands. o dump_data.o edit simulate. o elm jacob.o \ 
f ile_options . o gauss_eliminate . o integ.o ioliba.o load_device.o \ 
load_e)ement.o load_initial . o load_network.o load simulation. o \ 
make_ jacobian . o print_network . o read_device.o read_element . o \ 
read_network.o sepsip.o setup_simulat ion . o simulate. o \ 

dump_data . o 

INCLUDEFILES = penner.h doerry.h 
sepsip: $ (OBJB) $ (FUNCO) 

cc -c sepsip $ (ORJB) $ (FUNCO) -1m 
load_device . o : $ ( INCLUDEFILES ) 

cc -c load device. c 
read_device . o : $ (INCLUDEFILES ) 

cc -c read_device . c 
sepsip.o: $ (INCLUDEFILES) 

cc -c sepsip.c 

clobber : 

rrn * . o 



B.5 Recompile SEPSIP 

The final step to add a device to SEPSIP is to recompile the program. Using the above 
Makefile, the recompilation is accomplished in UNIX by entering the command make -k at 
a UNIX prompt. For other systems, one must read the instruction manual for the system C 
compiler. 
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APPENDIX C 



DEVICE DRIVER CODE 
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C.l f_t_Iine_3p.c 
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f_t_Iine_3p . c 



/* f_t_line_3p . c */ 

/* Norbert H. Doerry 
11 March 1989 

This routine simulates a 3 phase transmission line as a series 
combination of a resistance and reactance. The reactance also 
has a parallel leakage resistance 

*/ 

linclude <stdio.h> 

#include <math.h> 

#include "doerry. h" 



#def ine 


vOa e->con.in[0] 




#def ine 


vOb e->con.in[l] 




#def ine 


vOc e->con.in[2] 




#def ine 


via e->con.in[3] 




#def ine 


vlb e->con.in[4] 




#def ine 


vie e->con.in[5] 




#def ine 


iOa e->con . in [ 6] 




#def ine 


iOb e->con.in[7] 




#def ine 


iOc e->con.in[8] 




#def ine 


ila e->con.in[9] 




#def ine 


ilb e->con . in [ 10 ] 




Idefine 


ilc e->con.in[ll] 




#def ine 


va e->con . state [ 0 ] 




#def ine 


vb e->con . state [ 1 ] 




Idefine 


vc e->con . state [2 ] 




Idefine 


ia e->con . state [ 3 ] 




Idefine 


ib e->con . state [ 4 ] 




Idefine 


ic e->con . state [ 5 ] 




Idefine 


va old e->con.old state 


[0] 


Idefine 


vb old e->con.old state 


[1] 


Idefine 


vc old e->con.old state 


[2] 


Idef ine 


ia old e->con.old state 


[3] 


Idefine 


ib old e->con.old state 


[4] 


Idefine 


ic old e->con.old state 


[5] 


Idefine 


R e->con .param [ 0 ] 




Idefine 


L e->con .param [ 1 ] 




Idefine 


R1 e->con . param [ 2] 




Idefine 


vOa 0 




Idefine 


v0b_ 1 




Idefine 


vOc 2 




Idefine 


via 3 




Idefine 


vlb_ 4 




Idefine 


vlc_ 5 




Idefine' 


' iOa 6 




Idefine 


i0b_ 7 




Idefine 


iOc 8 




Idefine 


ila_ 9 




Idefine 


ilb_ 10 




Idefine 


ilc 11 





t_line_3p (e , dt ) 
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f_t_line_3p . c 



ELEMENT *e; 
double dt; 

{ 

double fta, ftb, ftc, fta_old, ftb_old, f tc_old; 
double ila, ilb, ilc, ila_old, ilb_old, ilc^old; 
int i, j; 

/* initialize the jacobian matrix to zeroes if dt == 0 */ 

for (i = 0 ; dt == 0 . 0 && i <. 6 ; i++) 
for (j = 0 ; j < 12 ; j++) 

e->con . jacob^in [ i 4- 6 * j] = 0.0; 



va 


= 


via - 


vOa ; 






vb 


= 


vlb - 


vOb; 






VC 


= 


vie - 


vOc; 






ia 




(ila 


- iOa) 


/ 


2.0 


ib 


= 


(ilb 


- iOb) 


/ 


2.0 


ic 


= 


( ilc 


- iOc) 


/ 


2.0 



/* see if the inductance is zero or the leakage resistance is zero*/ 

if (L == 0 || R1 == 0) 

{ 

/* pure resistance */ 



e->con . implicit [ 0] 




: va 


- ia * R; 




e->con . implicit [ 1 ] 




: vb 


- ib * R; 




e->con. implicit [2] 




' VC 


- ic * R; 




e->con . jacob in [ 0 


+ 


6 


* 


v0a_] = 


-1.0; 


e->con. jacob in [ 0 


+ 


6 




vla_] = 


1.0; 


e->con . jacob in [ 0 


+ 


6 


* 


iOa ] = 


R / 2.0; 


e->con. jacob in [ 0 


+ 


6 


* 


ila_] = 


-R / 2.0; 


e->con. jacob in [ 1 


+ 


6 


★ 


vOb ] = 


0 

iH 

1 


e->con . jacob in[l 


+ 


€ 


★ 


vlb ] = 


1.0; 


e->con. jacob in [ 1 


+ 


6 


* 


iObJ = 


R / 2.0; 


e->con. jacob in[l 


+ 


6 


* 


ilb_] = 


-R / 2.0; 


e->con. jacob in [2 


+ 


6 


+ 


vOc ] = 


-1.0; 


e->con. jacob in [2 


+ 


6 


* 


vie ] = 


1.0; 


e->con. jacob in [2 


+ 


6 


★ 


iOc ] = 


R / 2.0; 


e->con. jaccb in [2 


+ 


€ 


* 


ilej = 


-R / 2.0; 



} 

else 

{ 

/* inductance present */ 
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/* inductor voltage divided by inductance */ 



fta = (va 


- R * 


ia) 


/ 


L; 


ftb = (vb 


- R * 


ib) 


/ 


L; 


ftc - (vc 


- R * 


ic) 


/ 


L; 



/* find inductor current */ 

ila = ia - fta * L / Rl; 

ilb = ib - ftb * L / Rl; 

ilc = ic - ftc * L / Rl; 

/* find old values */ 



fta 


_old 




(va old 


- R * ia_ 


_old) 


/ L; 


ftb_ 


_old 




(vb old 


- R * ib_ 


_old) 


/ L; 


ftc 


old 


= 


(vc old 


o' 

■H 

* 

i 


_old) 


/ L; 


ila 


_old 


= 


ia old - 


fta old 


* L 


/ Rl; 


ilb _ 


_old 


= 


ib_old - 


ftb old 


* L 


/ Rl; 


ilc 


old 


= 


ic old - 


ftc old 


* L 


/ Rl; 



/* calculate implicit variables using trapezoidal integeration 



e->con . implicit [ 0] = integ (ila, ila_old, fta, fta_old, dt) ; 
e->con . implicit [ 1 ] = integ (ilb, ilb_old, ftb, ftb_old, dt) ; 
e->con . implicit [ 2] = integ (ilc, ilc_old, ftc, ftc_old, dt) ; 



/* calculate Jacobian 


Matrix 


*/ 


e->con. jacob in[0 


+ 


6 


* 


vOa ] 


= 


e->con. jacob in [ 0 


+ 


6 


* 


vla_] 




e->con. jacob in[0 


+ 


6 


* 


iOa ] 


= 


e->con .jacob in[0 


+ 


6 


•k 


ila ] 


= 


e->con. jacob in[l 


+ 


6 


k 


v0b_] 


= 


e->con . jacob_in [ 1 


+ 


6 


k 


vlb ] 


= 


e->con. jacob in[l 


+ 


6 


k 


i0b_] 




e->con. jacob in [ 1 


+ 


6 


k 


ilb_] 


= 


e->con. jacob in [2 


+ 


6 


k 


vOc ] 


= 


e->con. jacob in [2 


+ 


6 


k 


vie ] 


= 


e->con. jacob in [2 


+ 


6 


* 


iOc ] 


= 


e->con. jacob in [2 


+ 


6 


k 


ilc ] 





- 1 . 0 / Rl - dt / (2.0 * L ) ; 

- e->con . jacob_in [ 0 + 6 * v0a_J 

- (1 .0 + R / Rl + 

(dt * R) / (2.0 * L) ) / 2.0; 

- e->con . jacob_in ( 0 + 6 * v0a_] 

- 1.0 / Rl - dt / (2.0 * L) ; 

- e->con . jacob_in [ 1 + 6 * v0b_] 

- (1.0 + R / Rl + 

(dt * R) / (2.0 * L)) / 2.0; 

- e->con . jacob_in [ 1 + 6 * v0b__] 

- 1.0 / Rl - dt / (2.0 * L) ; 

- e->con. jacob in [2 + 6 * vOc ] 

- (1 .0 + R / Rl + 

(dt * R) / (2.0 * L) ) / 2.0; 

- e->con . jacob_in [ 2 + 6 * v0c_] 



/+ current sums are the following three implicit equations */ 



e->con . implicit [ 3 ] = iOa + ila; 
e->con . implicit [ 4 ] = iOb + ilb; 
e->ccn . implicit [ 5] =.i0c + ilc; 
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e->con . jacob_in [ 3 
e->con . j acob_in [ 3 
e->con . jacob_in [ 4 
e->con . jacob_in [ 4 
e->con.jacob in [ 5 
e->con . jacot_in [ 5 

/* turn the jacob 



+ 6 


* 


iOa 


.] = 


1.0; 


+ 6 


★ 


ila 


.] = 


1.0; 


+ 6 


★ 


iOb_ 


.] = 


1.0; 


+ 6 


★ 


ilb__ 


.] = 


1.0; 


+ 6 


★ 


iOc 


.] = 


1.0; 


+ 6 


* 


ilc 


.] = 


1.0; 


switch 


. on 


*/ 





e->con . jacob_switch = 1; 

/* store external output variables */ 

for ( i = 0 ; i < 6 ; i++) 

e->con . ext out [i] = e->con . state [ i] ; 
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C.2 f rl wye.c 



/ * f r 1 wye . c * ! 

/* Norbert H Doerry 

12 March 1898 

This file simulates a three phase rl load connected in a wye fashion. 

The center point, or ground, can be connected to a reference current 
subnode if it is desired tc leave the line floating. The neutral 
voltage can alternately be set to a specific value by using a reference 
voltage subnode . 



*/ 




#include 


: <stdio.h> 


#include 


: <math.h> 


^include 


: ’’doerry. h" 


#def ine 


vOa e->con.in[0] 


laefine 


vOb e->con.in[l] 


#def ine 


vOc e->con.in[2] 


taefine 


vOn e->con.in[3] 


#def ine 


iOa e->con.in[4] 


^define 


iOb e->con.in[5] 


#def ine 


iOc e->con.in[6] 


#def ine 


iOn e->con.in[7] 


#def ine 


va e->con . state [ 0 ] 


#def ine 


vb e->con . state [ 1 ] 


#def ine 


vc e->con . state [2 ] 


#def ine 


ia e->con . state [3 ] 


#def ine 


ib e->con . state [ 4 ] 


#def ine 


ic e->con . state [ 5 ] 


#def ine 


va old e->con.old state [0] 


^define 


vb old e->con.old state [1] 


#def ine 


vc old e->con.old state [2] 


#def ine 


ia old e->con.old state [3] 


#def ine 


ib old e->con.ola state [4] 


^define 


ic old e->con.old state [5] 


#def ine 


vOa 0 


#def ine 


v0b_ 1 


#def ine 


vOc 2 


#def ine 


vOn 3 


#def ine 


iOa 4 


#def ine 


iOb 5 


^define 


iOc 6 


#def ine 


i0n_ 7 


#aef ine 


R e->con . param [ 0] 


laef ine 


L e->con . param [ 1] 


^define 


F.l e->ccn . param [ 2 ] 


rl wye (e , dt ) 


ELEMENT 


*e ; 


double dt; 



{ 

int i,j; 
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double fta, ftb, ftc, fta_old, ftb_old, ftc_old; 
double ila, ilb, ilc; 
double Re; 

/* initialize the jacobian matrix to zeroes */ 

for (i = 0 ; dt == 0.0 && i < 4 ; i++) 
for (j = 0 ; j < 8 ; j++) 

e->con . jacob_in [ i + 4 * j] = 0.0; 

/* calculate states */ 



ila = iOn + iOb + iOc; 
ilb = iOn + iOc + iOa; 
ilc = iOn + iOa + iOb; 



va 


= 


vOa - 


vOn; 






vb 


= 


vOb - 


vOn; 






VC 


= 


vOc - 


vOn; 






ia 


= 


(iOa 


- ila ) 


/ 


2.0 


ib 


= 


( iOb 


- ilb) 


/ 


2.0 


ic 


= 


(iOc 


- ilc) 


/ 


2.0 



/* sum of currents should be zero */ 

e->con . implicit [ 3 ] = iOa + iOb + iOc + iOn; 

e->con . jacob_in [ 3 + 4 * i0a__] = 1.0; 

e->con . jacob__in [ 3 + 4 * i0b_] = 1.0; 

e->con . j acob_in [ 3 + 4 * i0c_] = 1.0; 

e->con . jacob_in [ 3 + 4 * i0n_] = 1.0; 

/* see if inductance is neglible */ 



if (L == 0 || R1 == 0) 

{ 

/+ pure resistance * / 



Re = (R1 == 0 | | R == 0) ? 

e->con . implicit [ 0] = va - 
e->con . implicit [ 1 ] = vb - 

e->con . implicit [ 2 ] = vc - 

if (dt == 0) 

{ 

e->con . jacob_in [ 0 + 4 
e->con. jacob in[0 + 4 
e->con . jacob_in [ 0 + 4 
e->con . jacob_in [ 0 + 4 
e->con. jacob in [ 0 + 4 
e->con . j acob^in [ 0 + 4 



0.0 : R 1 * R / (R1 + R) 

ia * Re; 
ib * Re; 
ic * Re; 



★ 


v0a_] 


= 


1.0; 




* 


vOn ] 




-1.0; 




T 


i0a_] 


= 


-Re / 


2.0 


+ 


i0b_] 




Re / 


2.0 




i0c_] 


= 


Re / 


2.0 


* 


iOn ] 


= 


Re / 


2.0 
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} 

else 

{ 



e->con. jacob in [ 1 


+ 


4 


* 


v0b_] 


1 = 


1 . 


0; 




e->con. jacob in[l 


+ 


4 


★ 


vOn ] 


= 


-1 . 


0; 




e->con. jacob in[l 


+ 


4 


* 


i0b_] 


1 = 


-Re 


/ 


2.0; 


e->con . jacob__in [ 1 


+ 


4 


* 


iOc ] 


= 


Re 


/ 


2.0; 


e->con.jacok in [ 1 




4 


* 


i0a_] 


= 


Re 


/ 


o 

CM 


e->con . jacob__in [ 1 


+ 


4 


★ 


i0n_] 


= 


Re 


/ 


2.0; 


e->con. jacob in [2 


+ 


4 


•* 


vOc ] 


= 


1 . 


0; 




e->con. jacob in [2 


+ 


4 


* 


vOn ] 


= 


-1 . 


0; 




e->con. jacob in [2 


+ 


4 




i0c_] 


= 


-Re 


/ 


o 

CM 


e->con. jacob in [2 


+ 


4 


★ 


i0a_] 


= 


Re 


/ 


2.0; 


e->con. jacob in [2 


+ 


4 


* 


i0b_] 


= 


Re 


/ 


o 

CM 


e->con. jacob in [ 2 


+ 


4 


* 


i0n_] 


= 


Re 


/ 


2.0; 



/* inductance present */ 

e->con . implicit [ 0 ] = ia - ia_old - (dt / L) * 

( (va + va_old) / 2.0 - R * ia_old) - (va - va_old) / Rl; 
e->con . implicit [ 1 ] = ib - ib_old - (dt / L) * 

( (vb + vb_old) / 2.0 - R * ib_old) - (vb - vb_old) / Rl; 
e->con . implicit [2 ] = ic - ic_old - (dt / L) * 

( (vc + vc old) / 2.0 - R * ic old) - (vc - vc old) / Rl; 



e->con. jacob in[0 


+ 


4 


★ 


vOa ] 


= 


- dt / (2.0 * L) - 1 


.0 


/ 


Rl; 




e->con. jacob in[0 


+ 


4 


* 


vOn ] 


= 


- e->con. jacob in[0 


+ 


4 


* v0a_ 


.] ; 


e->con. jacob in[0 


+ 


4 


* 


i0a_J 


= 


0.5; 










e->con. jacob in[0 


+ 


4 


* 


i0b_] 


= 


- e->con. jacob in[0 


+ 


4 


* i0a_ 


.] ; 


e->con. jacob in[0 


+ 


4 


* 


iOc ] 


= 


- e->con. jacob in[0 


+ 


4 


* iOa 


.] ; 


e->con. jacob in[0 


+ 


4 


* 


iOn ] 


= 


- e->con. jacob in[0 


+ 


4 


* iOa 


.] ; 


e->con. jacob in [ 1 


+ 


4 


* 


vOb ] 


= 


- dt / (2.0 * L) - 1 


.0 


/ 


Rl; 




e->con. jacob in[l 


+ 


4 


* 


vOn ] 


= 


- e->con. jacob in[l 


+ 


4 


* vOb 


.] ; 


e->con. jacob in [ 1 


+ 


4 


* 


i0b_] 


= 


0.5; 










e->con. jacob in [ 1 


+ 


4 


★ 


iOc ] 


= 


- e->con. jacob in[l 


+ 


4 


* i0b_ 


_] ; 


e->con. jacob in [ 1 


+ 


4 


* 


i0a__] 




- e->con. jacob in [ 1 


+ 


4 


* i0b_ 


.] ; 


e->con. jacob in [ 1 


+ 


4 


* 


i0n_] 


= 


- e->con. jacob in[l 


+ 


4 


* i0b_ 


.] ; 


e->con. jacob in [2 


+ 


4 


* 


vOc ] 


«= 


- dt / (2.0 * L) - 1 


.0 


' / 


Rl; 




e->con. jacob in [2 


+ 


4 


★ 


vOn ] 


= 


- e->con. jacob in[2 


+ 


4 


* vOc 


.] ; 


e->con. jacob in [2 


+ 


4 


* 


i0c_] 


= 


0.5; 










e->con. jacob in [2 


+ 


4 


* 


iOa ] 


= 


- e->con. jacob in [2 


+ 


4 


* iOc 


.] ; 


e->con. jacob in [2 


+ 


4 


* 


iObJ 


= 


- e->con. jacob in [2 


+ 


4 


* iOc 


.]; 


e->con. jacob in [2 


+ 


4 


* 


i0n_] 


= 


- e->con. jacob in [2 


+ 


4 


* iOc 


.] ; 



/* turn the jacob switch on */ 



e->con . jacob_switch = 1; 

/* e->con . jacob_switch = 0; */ 
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/* store external output variables */ 

for ( i = 0 ; i < 6 ; i++) 

e->con < e:*:t_out [i] = e->con . state [ i ] ; 



} 
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C.3 f_svnch_mach.c 
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f_svnch_mach . c 



/* f_synch_mach.c */ 

/* Norbert H. Doerry 

20 April 1989 

This file contains the driver routine for simulating a generic 
synchronous machine as modelled in: 

Synchronous Machine Dynamic Models 

J. L. Kirtley Jr. 

LEES Technical Report TR-S7-008 

June 5, 1987. 



+**+ Modified 29 april ****** 

Changed to use modified trapezoidal integration -nhd 



*/ 



#include <stdio.h> 
#include <math.h> 
linclude "doerry. h" 



/* terminal voltages and currents */ 



#define vOa 
^define vOb 
#define vOc 
#define vOn 
irdefine iOa 
#define iOb 
#define iOc 



e->con . in [ 0] 
e->con . in [ 1 ] 
e->con . in [ 2] 
e->con . in [ 3 ] 
e->ccn . in [ 4 ] 
e->con . in [ 5] 
e->con . in [ 6] 



/* field voltages and currents */ 



tdefine vOf e->con.in[7] 
tdefine vlf e->con.in[S] 
#define iOf e->con.in[9] 
#define ilf e->con . in [ 10 ] 



/* rotational properties */ 

/* Theta is electrical radians, wm and wm_dot are mechanical */ 

#define theta e->con . in [ 11 ] 

# define wm e->con . in [ 12 ] 
define wrr_dr e->con . in [ 13 ] 

/* sum of rotational inertia and electrical torque */ 

/* Loads are a negative Te , prime movers provide a positive Te */ 
^define Te e->con . in [ 14 ] 
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/* internal variable */ 



tdefine Psi_q e->ccn . in [ 15 ] 
#define Psi d e->con . in [ 16 ] 



/+ define offs 



#def ine 


vOa 




#def ine 


vOfc 




#def ine 


vOc 




#def ine 


vOn 




#def ine 


iOa 




#def ine 


i0b_ 




#def ine 


iOc 




#def ine 


v0f_ 




#def ine 


v 1 f 




#def ine 


iO f 




#def ine 


i 1 f 




#def ine 


Theta 




#def ine 


wm 




#def ine 


wm dt 




#def ine 


Te_ 




/* define parame - 


#def ine 


xd 


e 


#def ine 


xq 


e 


#def ine 


xd_p 


e 


#def ine 


Xd_pp 


e 


#def ine 


xq_pp 


e 


#def ine 


xal 


e 


# define 


Tdc_p 


e 


#def ine 


Tdo^pp 


e 


#def ine 


Tqc_pp 


e 


#def ine 


Tad 


e 


#def ine 


Ifni 


e 


#def ine 


H 


e 


#def ine 


PP 


e 


#def ine 


wbs 


e 


#def ine 


Vdb 


e 


#def ine 


Pbs 


e 



£ * / 

0 

1 

2 

3 

4 

5 

6 

7 

8 
o 

10 

11 

12 

13 

14 

ers */ 

>con . param [ 0 ] 
>con . param [ 1 ] 
>con . param [2] 
>ccn . param [ 3 ] 
>con . param [ 4 ] 
>con . param [ 5 ] 
>con . param [ 6] 
>con . param [ 7 ] 
>con . param [ 8 ] 
>con . param [ 9] 
>con . param [ 10 ] 
>con . param [11] 
■>con . param [ 12 ] 
>con . param [ 13 ] 
>ccn . param [ 14 ] 
>con . param [ 15 ] 



/* define states */ 



#aef ine 


s theta 


e->ccn . state [ 0 ] 


#def ine 


s wm 


e->con .state [ 1 ] 


#def ine 


s wm dt 


e->con . state [2] 


^define 


psi d 


e->con. state [3 ] 


# define 


psi_q 


e->con. state [4] 


#def ine 


eq_P 


e->con. state [5] 


^define 


eq_pp 


e->con. state [6] 


#def ine 


ed_pp 


e->con . state [7 ] 
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# define d_psi_d 
# define d_psi_q 
tdefine d_eq_p 
# define d_eq_pp 
#define d_ed_pp 



e->con . state [ 8 ] 
e->con . state [ 9 ] 
e->con . state [10] 
e->con . state [11] 
e->con. state [12] 



#def ine 


s theta old 


e->con . old 


laefine 


s WIT, old 


e->con . old 


#def ine 


s wm dt old 


e->con . old 


trdef ine 


psi d old 


e->con . old 


#def ine 


psi q_old 


e->con . old 


#def ine 


eq_p old 


e->con . old 


#def ine 


eq_pp old 


e->con . old 


#def ine 


ed_pp old 


e->con . old 


#def ine 


d psi d old 


e->con . old 


#def ine 


d_psi q_old 


e->con . old 


#def ine 


d eq_p old 


e->con . old 


#def ine 


d eq pp old 


e->con . old 


#def ine 


d ed_pp old 


e->con . old 



/* define implicit variables */ 



state [ 0 ] 
state [ 1 ] 
state [2 ] 
state [ 3 ] 
state [ 4 ] 
state [ 5 ] 
state [ 6 ] 
state [7 ] 
state [ 8 ] 
state [ 9 ] 
state [10] 
state [11] 
state [ 12 ] 



#def ine 


isum 


#def ine 


if sum 


#def ine 


VO 


#def ine 


i_psi d 


#def ine 


i psi_q 


#def ine 


i_eq_pp 


#def ine 


i ed_pp 


#def ine 


i - ec 3_P 


#def ine 


Torq 


#def ine 


W 


#def ine 


Wdot 


^define 


P I2_3 


#def ine 


C2_3 


#def ine 


TWOFI 


#def ine 


xad 


#def ine 


xkd 


#def ine 


xf 


#def ine 


rf 


#def ine 


IdE 


#def ine 


IfE 


#def ine 


VfE 


rdef ine 


Tbs 


#def ine 


alpha 


#def ine 


if d 


laefine 


vfd 


#def ine 


eaf 


laefine 


vd 



e->con. implicit [ 0 ] 
e->con . implicit [ 1 ] 
e->con . implicit [ 2 ] 
e->con . implicit [ 3 ] 
e*>con. implicit [ 4 ] 
e->con . implicit [ 5 ] 
e->con . implicit [ 6] 
e->con . implicit [ 7 ] 
e->con . implicit [ 8 ] 
e->con . implicit [ 9] 
e->con . implicit [ 10 ] 

2.0943951 

0 . 66666666667 

6.2831853 

e->con . ext__out [ 0 ] 
e->con . ext_out [ 1 ] 
e->con . ext_out [2] 
e->con . ext^out [ 3 ] 

e->con . ext_out [ 4 ] 
e->con . ext_out [ 5 ] 
e->con . ext_out [ 6 ] 
e->con . ext_out [ 7 ] 

e->con . ext_out [ 8 ] 
e->con . ext_out [ 9 ] 
e->con . ext_out [10] 
e->con . ext^out [11] 
e->con.ext out [12] 
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#def ine 


v q 


e->con.e:*:t out [13] 


#def ine 


id 


e->con.e::t cut [14] 


#aef ine 


iq 


e->con . e:-:t out [15] 


#def ine 


Tepu 


e->con.e::t out [16] 


#def ine 


RPM 


e->con.ext out [17] 


#def ine 


Pmech 


e->con . ext_out [ 16 ] 


#def ine 


Pe 


e->con.ext out [19] 


#def ine 


Tacc 


e->con.e:-:t out [20] 


#def ine 


la 


e->con.ext out [21] 


#def ine 


lb 


e->con.e:*:t out [22] 


#define Ic 

synch mach(e,dt) 
ELEMENT *e; 
double dt; 


e->con.ext out [23] 



{ 

double temp; 
double va,vb,vc; 
int i, j; 
double io; 

double cost, costp, costm, sint, sintp, sintm; 
double Taq; 

la - iOa; 
lb = iOb; 

Ic = iOc; 

/* ensure theta is in range */ 

/* while (theta > TWOPI) theta -= TWOPI; 
while (theta < -TWOPI) theta += TWOPI; */ 



cost 

costp 

costm 

sint 

sintp 

sintm 



cos (theta) ; 

cos (theta + PI2_3) ; 

cos (theta - PI2_3) ; 

sin (theta) ; 

sin (theca + PI2__3) ; 

sin (theta - PI2 3); 



/* calculate RPM */ 



RPM = wm * 60.0 / TWOFI; 



/* using the shielding constraint model */ 

/* calculate base quantities */ 

if ( wbs == 0) wbs = TWOPI * 60.0; 
if (Vdb == 0) Vdb = 1.0; 
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if (Pbs == 0) Pbs = 1.0; 
if (pp <= 0) pp =1.0; 

IdB = Pbs * C2_3 / Vdb ; 

I f B = Ifni * (xd - xal); 

if ( If B == 0) I f B = 1.0; 
VfB = Pbs / If B; 



Tbs = pp * Pbs / wbs; 

/ * calculate the phase voltages */ 



va 


= vOa 


- vOn; 


vb 


= vOb 


- vOn; 


VC 


= vOc 


- vOn; 



/ + calculate instantaneous power * / 

Pe = va * iOa + vb * iOb + vc * iOc; 

/* do the Parks transformation for both the current and voltages */ 



id 


= 


c2 _ 


_3 


★ 


(cost 


* 


iOa + costm * iOb 


+ costp 


* iOc) 


/ IdB; 


iq 


= 


- C2_ 


_3 


★ 


(sint 




iOa + sintm * iOb 


+ sintp 


* iOc) 


/ IdB; 


io 


= 


C2_ 


_3 


* 


( iOa 


/ 


2.0 + iOb / 2.0 


+ iOc 


/ 2.0 ) 


/ IdB; 


vd 


= 


C2_ 


_3 


* 


(cost 


* 


va + costm * vb + 


costp * 


vc) / 


Vdb; 


vq 


= 


- C2_ 


_3 


* 


(sint 


* 


va + sintm * vb + 


sintp * 


vc) / 


Vdb; 


VO 


= 


C2_ 


_3 


* 


( va / 


2 


.0 + vb / 2.0 + 


vc / 2 


.0 ) / 


Vdb; 



/ x convert the field variables to per unit */ 

if d = (ilf - iOf) / (2.0 * IfB) ; 
vfd = (vlf - vOf) / VfB; 

Tag = (xd_pp != 0.0) ? Tad * xq_pp / xd_pp : Tad; 

/* ensure xd_pp and xq_pp are non zero */ 

if (xd_pp <= 0.0) xd_pp = .01; 
if (xq_pp <= 0.0) xq_pp = .01; 

/* calculate parameters */ 

xf = (xd ! = xd_p) ? (xd - xal) * (xd - xal) / (xd - xd_p) : 1000.0 

rf = (Tdc_p != 0.0) ? xf / (wbs * Tdc_p) : 1000.0; 

::ad = xd - xal; 

xkd = (xd != xd_pp) ? xad * x ad / (xd - xd_pp) : 1000.0; 

alpha = (xd_p != xd_pp) ? (xd - xd_pp) / (xd_p - xd_pp) : 1000.0; 

/* calculate variables + / 



eaf = (rf != 0.0) .? xad * vfd / rf : 1000.0; 
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ed_pp = xq_pp * iq - Psi_q; 
eq_pp = Psi_d - xd_pp * id; 

eq_p = (xf != 0.0) ? (xad * (xf - xkd) * ifd + xkd * e q_pp) / xf : 

xad * ifd; 
psi d = Psi_d; 
psi_q = Psi_q; 

/* calculate derivatives */ 

d_psi_d = (Tad != 0) ? ( eq_pp - psi__d) / Tad + wm * pp * psi_q + wbs * vd 

0.0; 

d_psi_q - (Taq ! = 0 ) ? (-psi_q - ed_pp) / Taq - wm * pp * psi_d + wbs * vq 

0.0; 

d_eq_pp = (Tdo_pp != 0) ? (- xd_p * eq_pp / xdjpp + 

eq_p + (xd_p - xd_pp) * psi_d / xd_pp) / Tdo_pp : 0.0; 

d_ed_pp = (Tqo_pp != 0) ? ( - xq * ed_pp / xq_pp - 

(xq - >:q__pp) * psi_q / xq_pp) / Tqo_pp : 0.0; 

d_ e q JP = (Tdc_p != 0) ? 

(-alpha * eq_p + (alpha - 1.0) * e q__PP + eaf) / Tdo_p : 0.0; 

/* calculate associated implicit variables (trapezoidal integeration ) */ 

/* changed 29 april to use modified trapezoidal method */ 



i_psi_d = (Tad != 0) ? 

psi__d - psi_d_old - (dt) * (0.6 * d_psi__d + 0.4 * d_psi_d_old) : 

eq_pp - psi__d; 
i_psi_q = (Taq != 0) ? 

psi__q - psi_q_old - (dt) * (0.6 * d_psi__q + 0.4 * d_psi__q_old) : 

psi_q + ed_pp; 
i_eq_pp = (Tdc_pp != 0) ? 

e< 3_PP *“ eq_pp_old - (dt) * (0.6 * d_eq_pp + 0.4 * d_eq_pp__old) : 

- xd_p * eq_pp / xc pp + eq_p + (xd_p - xd_pp) * psi_d / xd_pp ; 

i_ed_pp = (Tqc_pp != 0) ? 

ed_pp - ed_pp_old - (dt) * (0.6 * d_e d_pp + 0.4 * d__ed_pp_old) : 

- xq * ed_pp / xq_pp - (xq - xq_pp) * psi_q / xq_pp; 
i_eq_p = (Tdo__p != 0) ? 

eq_p - ec_p_old - (dt) * (0.6 * d__eq__p +0.4 * d_eq_p__cld ) : 

-alpha * eq_p + (alpha - 1.0) * e q_PP + eaf; 



/* the zero sequence current should go to zero since sum of currents 
must go to zero if there is no leakage to ground */ 

isum = io; 

/* the sum of the field currents should be zero */ 
if sum = (iOf + ilf) / IfB; 

/* vo also goes to zero since the zero sequence current is always zero 
and therefore the zero sequence flux can never build up */ 



/* calculate per unit torque of electrical origin */ 
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Tepu = psi_d * iq - psi_q * id; /* 59 */ 

/* calculate the mechanical Power */ 

Pmech = Tepu * wm * Tbs; 

/* calculate load torque */ 

Tacc = 2.0 * H * pp * wm_dt / wbs; 

/* The Te variable is Nm of the torque coming cut of the machine */ 

Torq = Tacc - Tepu - Te / Tbs; 

/* integrate the frequency */ 

s_theta = theta; 
s_wm = wm; 
s_wm__dt = wm_dt ; 

W = s_theta - s_theta_old - (dt / 2.0) * ( s_wm * pp + s_wm_old * pp) ; 

/* modified the trapezoidal integration to weight the 'Euler Backward' 
contribution. This prevents the acceleration from oscillating 
should the frequency be held at a constant 
*/ 

Wdct « s_wm - s_wm__old - (dt) * (0.6 * s_wm_dt + 0.4 * s_wm_dt_old) ; 

/* turn jacobian switch off */ 
e->con . jacob_switch = 0.0; 
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f speed_reg.c 



/+ f_speed_rec.c */ 

/* Norbert H. Doerry 
15 April 1989 

This device describes a prime mover controlled by a mechancial 
governor and attached to a shaft that has windage losses (B) . 

The governor is based on the type found on the SSN-637 class 
submarine and described in: 

R.C. Dalton 

Turbine Generator Simulations for DD-692 Class 450 KV? Machine 

and SSN-637 Class 2000 KW Machine, NAVSSES Philadelphia Project C-267. 

5 March 1984. 

This particular model was developed in: 

Norbert H. Doerry 

Shipboard Electrical Generator Simulation 
Semester Project Report for 6.238, MIT 
17 May 1988 

**** Modified 1 May 1989 ****** 

changed the control from speed to torque 



********* 



Input variables 



s = Primary Amplifier Fulcrum Displacement (inches) (0 to .5) 

Tm = Torque on shaft (Nm) 

wm = Mechanical speed (rad/sec) 

Parameters 



wnlo 

wds 

wdTepu 

TBS 

Tg 

B 



= 374.72 (rad/sec) 

= 63.38 (rad/sec-in) 

= -20.15 (rad/sec) 

= Base Torque 
= .3275 (sec) 

= (Nmsec) 



base setting for speed 
Coefficient for s 
Coefficient for Tmm / TBS 

Regulator time constant 
Damping Coeffient 



External Output variables 



Tmm 

Wg 

P shaft 
Pdeliver 



— Ter cue seen by prime mover 
= (HZ) Droop frequency 
= power seen at shaft 

= power delivered by the prime mover 
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^include <stdio.h> 
^include <math.h> 




^include "doerry.h' 




#def ine 


wm 


e->con . in [ 0 ] 


#def ine 


Tm 


e->con . in [ 1 ] 


#def ine 


s 


e->con . in [2 ] 


#def ine 


Tm order 


e->con .state [ 0 ] 


# define 


Tmpu 


e->con . state [ 1 ] 


#def ine 


Tm order old e->con.old state [0] 


#def ine 


Tmpu old 


e->con . old state [1] 


#def ine 


wnlo 


e->con . pa ram [ 0 ] 


#def ine 


wds 


e->con .pa ram [ 1] 


#def ine 


wdTepu 


e->con . pa ram [2] 


#def ine 


TES 


e->con . pa ram [ 3 ] 


#def ine 


Tg 


e->con . par am [ 4 ] 


#def ine 


B 


e->con . pa ram [ 5 ] 


#def ine 


Tmm 


e->con.e>:t out[0] 


#def ine 


Tm 


e->con.ext out[l] 


#def ine 


Pshaft 


e->con.ext out [2] 


#def ine 


Pdeliver 


e->con . ext out [3] 


#def ine 


DEG_RAD 57. 


,29578 


#def ine RAD_HZ 6.28319 
#def ine WBS 377.0 

speed reg(e,dt) 

ELEMENT *e; 
double dt; 



{ 



Tmm = Tm + E * wm; 

if (TBS == 0) TBS = 1.0; 

Tmpu = Tmm / TBS; 

if (wdTepu != 0) 

{ 



/* find the desired torque */ 

Tm_order = (wm - wnlo - wds * s) / wdTepu; 



e->con . implicit [ 0] = (Tmpu - Tmpu_old) * Tg - 



dt * (Tm order old - .5 


★ 


Tmpu - . 5 * 


Tmpu old) 


e->con.jacob in[0] = (E 


/ 


TBS) * (Tg 


- dt * .5) 


e->con. jacob in[l] = (1.0 


/ 


TBS) * (Tg 


- dt * . 5 ) 


e->con.jacob in[2] = 0.0; 









185 



f_speed_reg . c 



} 

else 

{ 

/* set the speed to the ordered speed */ 



e->con . implicit [ 0 ] 

e->con . jacob_in [ 0 ] 
e->con. jacob_in [ 1 ] 
e->con . jacob_in [ 2 ] 

Tm_o r d e r = Tmpu ; 

} 



= ( wm - wnlo - wds * s 

= 1.0 / WBS; 

= 0 . 0 ; 

= - wds / WBS; 



Tm__ = Tm_order; 

e->con . jacob_switch = 1.0; 

P shaft = Tm * wm; 

P deliver = Tmm * wm; 



} 



) / WBS; 
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f_volt_r eg . c 



/* f_volt_reg.c + / 

/* Norbert H. Doerry 
15 April 1989 



*/ 



tinclude <stdic . h> 












#include <math.h> 












#include "doe 


rry.h" 












#def ine 


vOa 


e->con . in [ 0 ] 












#def ine 


vOb 


e->con . in [ 1] 












#def ine 


vOc 


e->con . in [ 2 ] 












#def ine 


vOf 


e->con . in [ 3 ] 












#def ine 


v 1 f 


e->con . in [ 4 ] 












#def ine 


iOf 


e->con . in [ 5 ] 












#def ine 


ilf 


e->con . in [ 6] 












#def ine 


Vfcs 


e->con . in [ 7] 


/* This 


is the desired voltage */ 




#def ine 


wbs 


e->con . in [ 8 ] 












#def ine 


phase 


e->con . in [ 9] 












#def ine 


vt 


e->con . in [ 10 ] 












#def ine 


Vfdbs 


e~>con .par am [ 0 ] 


/* This 


is 


nominal 


field voltage 


*/ 


#def ine 


K 


e->con . par am [ 1 ] 


/* This 


is 


forward 


DC gain of error 


*/ 


#def ine 


Tvr 


e->con .par am [2 ] 


/* This 


if 


voltage 


regulator Time const 


#def ine 


Vfmax 


e->con . par am [ 3 ] 


/* maximum 


limit for field voltage 


*/ 


#def ine 


Vfmin 


e->con . par am [ 4 ] 


/* minimum 


limit for field voltage 


*/ 


#def ine 


11 


e->con . implicit 


[0] 










#def ine 


12 


e->con . implicit [ 1 ] 










#def ine 


I sum 


e->con . implicit [2 ] 










#def ine 


Integ, 


rate e->con . implicit [3 ] 










#def ine 


Verr 


e->con . state [ 0 ] 












#def ine 


Vsig 


e->con . state [ 1 ] 












#def ine 


theta 


e->con .state [2] 












#def ine 


clip 


e->con . state [3 ] 












#def ine 


Verr 


old e->con.old state [0] 










#def ine 


Vsig_ 


old e->con.old state [1] 










#def ine 


theta 


old e->con.old state [2] 










#aef ine 


clip 


old e->con . old_state [3 ] 










#def ine 


PI2_3 


2.0943951 












#def ine 


TWOF I 


C .2831853 













vclt_reg (e , dt) 
ELEMENT *e; 
double dt; 

{ 
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double va, vb, vc, vn, vsig, vf ; 
double cost, costm; 

vn = (vOa + vOb + vOc) / 3.0; 

va = vOa - vn; 
vb = vOb - vn; 
vc = vOc - vn; 

if (vt < 0) 

{ 

vt y = -1.0; 
phase -= FI; 

} 



/* calculate phase */ 

while (theta_old > TWOPI) theta_old -= TWOPI; 
while (theta_old < -TWOPI) theta_old += TWOPI; 

/* keep the phase angle in a good range */ 

while (phase > TWOPI) phase -= TWOPI; 
while (phase < -TWOPI) phase += TWOPI; 

theta = theta_old + wbs * dt; /* euler backwards method */ 

cost = cos (theta + phase); 

costm = cos (theta - PI2_3 + phase); 

11 = (va - vt * cost ) / Vbs; 

12 = (vb - vt * costm) / Vbs; 

Verr - 1.0 - vt / Vbs; 

Vsig = (vlf - vOf) / Vfdbs - 1.0; 

if (clip__old == 0) 

{ 



/* use a modified trapezoidal integration scheme (weight euler back) */ 

Integrate = Tvr * (Vsig - Vsig__old) + 

dt * ( . 6 * Vsig + .4 * Vsig_old - . 6 * K * Verr - .4 * K * Verr_old) ; 

vf = vlf - vOf; 

} 

else if (clip_old == 1) 

{ 

Integrate = (Vfmax - (vlf - vOf ) ) / Vbs; 

vsig = (Tvr * Vsig_old - 
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dt * (.4 * Vsig_old - .6 * K * Verr - .4 * K * Verr_old) ) / 

(Tvr + dt * 0.6); 

vf - (vsig + 1.0) * Vfdbs; 



} 

else 

{ 

Integrate = (Vfmin - (vlf - vOf ) ) / Vbs; 

vsig = (Tvr * Vsig_old - 

dt * (.4 * Vsig_old - . 6 * K * Verr - .4 * K * Verr_old) ) / 

(Tvr + dt * 0.6); 

vf = (vsig +1.0) * Vfdbs; 

} 

I sum = iOf + ilf; 



/* update the state */ 

if (vf >= Vfmax) clip = 1.0; 
else if (vf <= Vfmin) clip = -1.0; 
else clip = 0.0; 

/* let the system calculate the jacobian for now */ 
e->con . jacob_switch = 0.0; 



} 
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/* f_ind_motor . c */ 

/* Norbert K. Doerry 
15 April 1989 



*/ 

#include <stdio.h> 
tinclude <math.h> 
tinclude "doerry. h" 



#def ine 


vOa 


e->con . in [ 0 ] 


#def ine 


vOb 


e->con . in [ 1 ] 


#def ine 


vOc 


e->con . in [ 2 ] 


#def ine 


iOa 


e->con . in [ 3 ] 


#def ine 


iOb 


e->con . in [ 4 ] 


#def ine 


iOc 


e->con . in [ 5 ] 


#def ine 


theta 


e->con . in [ 6] 


#def ine 


wm 


e->con . in [ 7 ] 


#def ine 


wm dt 


e->con . in [ 8 ] 


#def ine 


vOn 


e->con . in [ 9 ] 


#def ine 


ira 


e->con . in [ 10 ] 


#def ine 


irb 


e->con . in [11] 


#def ine 


ire 


e->con . in [ 12 ] 



#def ine 


Ila 


e->con . implicit [ 0] 


#def ine 


I lb 


e->con . implicit [ 1 ] 


#def ine 


lie 


e->con . implicit [ 2 ] 


#def ine 


lira 


e->con . implicit [ 3 ] 


#def ine 


I lrb 


e->con . implicit [ 4 ] 


#def ine 


lire 


e->con . implicit [ 5] 


#def ine 


I sum 


e->con . implicit [ 6] 


#def ine 


W 


e->con . implicit [ 7 ] 


#def ine 


Wdot 


e->con . implicit [ 8 ] 


#def ine 


Torque 


e->con . implicit [ 9] 



#def ine 


Rs 


e->con .par am [ 0 ] 


#def ine 


XI s 


e->con .par am [ 1 ] 


#def ine 


XM 


e->con .pa ram [2] 


#def ine 


Xlr_prime 


e->con .par am [3 ] 


#def ine 


Rr_prime 


e->con .par am [ 4 ] 


#def ine 


J 


e->con . par am [ 5 ] 


#def ine 


wbs 


e->con .par am [ 6 ] 


#def ine 


PP 


e->con . pa ram [ 7 ] 


#def ine 


B 


e->con .param [ 8 ] 


trdef ine 


Tmech 


e->con.e:-:t in[0] 


^define 


lam sa 


e->con. state [0] 


#def ine 


lam sb 


e->con . state [ 1 ] 


#def ine 


lam sc 


e->con . state [ 2 ] 


#def ine 


dlam sa 


e->con .state [ 3 ] 
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#def ine 


dlam sb 


e->con .state [ 4 ] 


#def ine 


dlam^sc 


e->con. state [ 5 ] 


#def ine 


lam ra_p 


e->con . state [ 6 ] 


#def ine 


lam rb_p 


e->con . state [ 7 ] 


#def ine 


lam rc_p 


e->con . state [ 8 ] 


#def ine 


dlam. r a_p 


e->con. state [ 9 ] 


#def ine 


dlam rb_p 


e->con . state [ 10 ] 


#def ine 


dlam rc_p 


e->con . state [11] 


#def ine 


theta s 


e->con. state [12] 


#def ine 


w_s 


e->con . state [13] 


#def ine 


w dot s 


e->con .state [ 14 ] 


#def ine 


lam s a old 


e->con.old state [0] 


#def ine 


lam sb old 


e->con.ola state [1] 


#def ine 


lam sc old 


e->con.old state [2] 


laefine 


dlam sa old 


e->con.old state [3] 


#def ine 


dlam sb old 


e->con.old state [4] 


^define 


dlam sc old 


e->con.old state [5] 


#def ine 


lam ra_p old 


e->ccn.old state [6] 


#def ine 


lam rb_p_old 


e->con.old state [7] 


#def ine 


lam rc_jp old 


e->con.old state [8] 


#def ine 


dlam raj: old 


e->con.old state [9] 


#def ine 


dlam. rb_p old 


e->con.old state [10] 


#def ine 


dlam. rcj old 


e->con.old state [11] 


#def ine 


theta s old 


e->con.old state [12] 


#def ine 


w s old 


e->con.old state [13] 


#def ine 


w dot s old 


e->con.ola state [14] 


# define 


RPM 


e->con.ext out[0] 


#def ine 


Te 


e->con . ext out[l] 


trdef ine 


Td 


e->con.ext out [2] 


#def ine 


T1 


e->con.ext out [3] 


#def ine 


WATTS 


e->con . ext out [4] 


#def ine 


HP 


e->con . ext out [ 5 ] 


#def ine 


la 


e->con.ext out [6] 


#def ine 


lb 


e->con.ext out [7] 


tdefine 


Ic 


e->con . ext out [ 8 ] 



#def ine TWOFI 6.28319 



ind__motor (e , dt ) 

ELEMENT *e; 
double dt; 

{ 

int i, j; 

double Lis, Llr_p, M, Lms; 

double Lll , L21 , L4 1 , L51, L61, L44; 

double cost, costp, costm; 

la = i 0 a ; 
lb = iOb; 
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I c = iOc; 

RPM = wm * 60.0 / TWOPI; 

cost = cos (theta); 

costp = cos (theta + TWOPI / 3.0); 

costm = cos (theta - TWOPI / 3.0); 

/* set the default base frequency to 60 HZ if zero */ 

if ( wbs == 0) wbs = TWOPI * 60.0; 

/ * calculate inductances * / 

Lis = XI s / wbs; 

Llr_p = Xlr_prime / wbs; 

M = XM / wbs; 



Lms 


= 


* 

o 

CM 


M / 3. 


Lll 


= 


Lis + 


Lms; 


L21 


- 


- Lms 


o 

CM 


L44 


= 


Llr_p 


+ Lms ; 


L41 




Lms * 


cost; 


L51 


= 


Lms * 


costp; 


L61 


= 


Lms * 


costm; 



/* calculate stator fluxes */ 

lam_sa = Lll * iOa + L21 * iOb + L21 * iOc + 

L41 * ira + L51 * irb + L61 * ire; 

lam_sb = L21 * iOa + Lll * iOb + L21 * iOc + 

L61 * ira + L4 1 * irb + L51 * ire; 

Iam_sc = L21 * iOa + L21 * iOb + Lll * iOc + 

L51 * ira + L61 * irb + L4 1 * ire; 

lam_ra_p = L41 * iOa + L61 * iOb + L51 * iOc + 

L44 * ira + L21 * irb + L21 * ire; 

lam__rb_p = L51 + iOa + L41 * iOb + L61 * iOc + 

L2 1 * ira + L4 4 * irb + L21 * ire; 

lam_rc_p = L61 * iOa + L51 * iOb + L41 * iOc + 

L21 * ira + L21 * irb + L44 * ire; 

/* calculate tne derivatives of the stator fluxes */ 



dlam 


sa 


= vOa 


- vOn 


- Rs * 


iOa 


dlam 


sb 


= vOb 


- vOn 


- Rs * 


iOb 


dlam 


sc 


= vOc 


- vOn 


- Rs * 


iOc 
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dlam_ra_p = -Rr_prime * ira; 
dlam_rb_p = -Rr_prime * irb; 
dlam_rc_p = -Rr_prime * ire; 

/* do the integrations of the fluxes 

Ila = lam_sa - lam_sa_old - (dt / 2. 
Ilb = lam sb - lam sb old - (dt / 2. 



lie = 


lam sc - lair, sc old - (dt / 


2. 


lira = 


lam ra_p - lam ra_p old - 


(dt 


I Irb = 


lam rb_p - lam rb_p old - 


(dt 


lire = 


lam rc_p - lam rc_p old - 


(dt 


/* do 


the current sum */ 




I sum = 


iOa + iOb 4 - iOc; 





/* 


calculate the torque 


*/ 






Te 


= - pp * Lms * ( (iOa 


* 


(ira - 


irb 




iOb 


* 


(irb - 


ire 




iOc 


* 


(ire - 


ira 




(sqrt (3 


. 0 ) /2 . 


0) * 




( iOa 


* 


(irb - 


ire 




iOb 


★ 


(ire - 


ira 




iOc 


* 


(ira - 


irb 



*/ 



) * (dlam_sa + dlam_sa_old) ; 
) * (dlam_sb + dlam_sb_old) ; 
) * (dlam_sc + dlam_sc_old) ; 



/ 


2.0) * 


(dlam ra_p 


+ 


dlam ra_p old) 


/ 


2.0) * 


(dlam rb_p 


+ 


dlam_rb_p_old) 


/ 


2.0) * 


(dlam rc_p 


+ 


dlam rc_p old) 



/ 2.0 - ire / 2 . 0 ) + 

/ 2.0 - ira / 2.0) + 

/ 2.0 - irb / 2.0)) * sin(theta) + 

cos (theta) * 

+ 

+ 

) ) ; 



WATTS = Te * wm; 

HP = WATTS / 746.0; 

Td = E * wm; 

T1 = Tmech + Td; 

Torque = Te - J * wm_dt - Tl; 

theta_s - theta; 
w_s = wm; 
w dot s = wrr. dt; 

/* do the integration of the frequency and acceleration */ 

W = theta_s - theta_s_old - (dt / 2.0) * pp * (w_s + w_s_old) ; 

Waot = w s - w s old - (dt / 2.0) * (w_dot_s + w_dot_s_old) ; 



} 
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/* f_switch_3p . c */ 

/* Norbert H. Doerry 

12 March 1989 

This routine simulates a 3 phase switch. When a switch is commanded 
to open, the switch is left closed until the current has a zero-crossing. 
This means that each phase will open at a slightly different time. 

Closing the switch happens instantaneously 



*/ 

#include <stdio.h> 
^include <math.h> 
#include " doerry. h" 



#def ine 


vOa 


e->con . in [ 0 ] 




#def ine 


vOb 


e->con . in [ 1 ] 




#def ine 


vOc 


e->con . in [ 2 ] 




#def ine 


via 


e->con . in [ 3 ] 




#def ine 


vlb 


e->con . in [ 4 ] 




#def ine 


vie 


e->con .in [ 5] 




#def ine 


iOa 


e->con . in [ 6] 




#def ine 


iOb 


e->con . in [ 7 ] 




#def ine 


iOc 


e->con . in [ 8 ] 




#def ine 


ila 


e->con . in [ 9 ] 




#def ine 


ilb 


e->con . in [ 10 ] 




#def ine 


ilc 


e->con . in [ 1 1 ] 




#def ine 


sa 


e->con .state [ 0 ] 




#def ine 


sb 


e->con . state [ 1 ] 




#def ine 


sc 


e->con . state [2 ] 




#def ine 


ia 


e->con . state [3 ] 




#def ine 


ib 


e->con . state [ 4 ] 




#def ine 


ic 


e->con . state [ 5 ] 




#aef ine 


sa old e->con.old state [0] 


#def ine 


sb old e->con.old state 


[1] 


#def ine 


sc old e->con.old state [2] 


# define 


ia old e->con.old state 


[3] 


#def ine 


ib_< 


Did e->con.old state [4] 


#def ine 


ic old e->con.old state [5] 


laefine 


vOa 


0 




#def ine 


vOb 


i 




#def ine 


vOc 


2 




#def ine 


vla_ 


3 




#def ine 


vlb 


4 




#def ine 


vie 


5 




#def ine 


iOa 


6 




#def ine 


iOb 


7 




r define 


iOc 


e 




rdef ine 


ila 


q 




#def ine 


ilb 


1° 




#def ine 


ilc 


11 




#def ine 


Switch e->con.e:>:t in[0] 





switch_3p (e, dt ) 
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ELEMENT *e; 
double dt; 

{ 

int i, j; 

double va, vb, vc; 

/* initialize the jacobian matrix to zeroes if dt == 0 */ 

for (i = 0 ; dt == 0 . 0 && i <6 ; i++ ) 

for (j = 0 ; j < 12 / j++) 

e->con . jacob_in [i + 6 * j] = 0.0; 



va 


- 


via - vOa; 




vb 


= 


vlb - vOb; 




vc 


= 


vie - vOc; 




ia 


= 


(ila - iOa) 


/ 2.0; 


ib 


= 


( ilb - iOb) 


/ 2.0; 


ic 


= 


(ilc - iOc) 


/ 2.0; 


/* 


see if switch 


is closed */ 



if (Switch == 1 . 0 ) 



sa = 1.0; 
sb = 1.0; 
sc = 1.0; 



} 

else /* 
{ 

sa = 
sb = 
sc = 

} 



if switch is ordered open, 

sa_old; 
sb_old; 
sc old; 



use results from last time */ 



/* if the switch is closed, the voltage should go to zero, otherwise 
the current should go to zero */ 



e->con . implicit [ 0 ] = 
e->con . implicit [ 1 ] = 
e->con . implicit [ 2] = 

if (sa == 1.0) 

{ 

e->con . jacob_in [ 0 
e->con . jacob_in [ 0 
e->con . jacob_in [ 0 
e->con . j acob_in [ 0 



( sa == 


1.0) 


7 


va : 


: ia 


(sb — — 


1.0) 


7 


vb : 


: ib 


(sc == 


1.0) 


7 


vc ; 


: ic 



+ 


6 


★ 


vOa 


.] = 


- 1.0 


+ 


6 


★ 


via 


.] = 


1.0 


+ 


6 


★ 


iOa 


.] = 


o 

o 


+ 


6 


★ 


ila 


] = 


o 

o 



else 

{ 



e ->con . jacob 


_in [ 0 


+ 


€ 


* v0a_] = 


o 

o 


e->con . jacob 


in [ 0 


+ 


€ 


* vla__] = 


o 

o 


e->con . jacob 


in [ 0 


4 - 


6 


* i0a_] = 


- 0.5; 



198 



e->con . jacob_in [ 0 

} 

if (sb == 1.0) 

{ 

e->con . jacob_in [ 1 
e->con . jacob_in [ 1 
e->con . jacob_in [ 1 
e->con . j acob_in [ 1 

} 

else 

{ 

e->con . jacob_in [ 1 
e->con . j acob_in [ 1 
e->con . jacob_in [ 1 
e->con . jacob_in [ 1 

} 

if (sc == 1.0) 

{ 

e*>con . jacob_in [ 2 
e->con . jacob_in [ 2 
e->con . jacob_in [ 2 
e->con . jacob_in [ 2 

} 

else 

{ 

e->con . jacob_in [ 2 
e->con. jacob in [2 
e->con . j acob_in [ 2 
e->con . j acob_in [ 2 

} 



+ 6 * v0b_] = - 1.0; 
+ 6 * vlb_] = 1.0; 
+ 6 * i0b_] = 0.0; 
+ 6 * ilb ] = 0.0; 



+ 6 * v0b_] = 0.0; 
+ 6 * vlb_] = 0.0; 
+ 6 * i0b_] = - 0 . 5 ; 
+ 6 * ilb ] = 0 . 5 ; 



+ 6 * v0c_] = - 1.0; 

+ 6 * v 1 c ] = 1.0; 

+ 6 * i0c_] = 0.0; 

+ 6 * ilc_] = 0.0; 



+ 6 * v0c_] = 0.0; 
+ 6 * vlc_] = 0.0; 
+ 6 * i 0 c_] = - 0 . 5 ; 
+ 6 * ilc ] = 0 . 5 ; 



/* the last three implicit variables assure currents are the same */ 



e->con . implicit [ 3 ] 




■ iOa + i 1 a ; 




e->con . implicit [ 4 ] 




iOb + ilb; 




e->con. implicit [ 5] 


= 


■ iOc + ilc; 




e->con. jacob in [3 


+ 


6 * i0a_] = 


1.0 


e->con. jacob in [3 


+ 


6 * ila_] = 


1 . 0 


e->con . jacob in [4 


+ 


6 * i0b_] = 


1.0 


e->con. jacob in [ 4 


+ 


6 * ilb_] = 


1.0 


e->con. jacob in [ 5 


+ 


6 * iOc ] = 


1.0 


e->con. jacob in [5 


+ 


6 y ilc_] = 


1.0 



/* see if should open the switches (look for zero crossing) */ 

if (Switch — 0) 

{ 



sa = 


( ia * 


ia 


_old 


A 

II 

o 

o 


7 


0.0 : 


: 1.0; 


sb = 


(ib * 


ib 


old 


A 

II 

o 

o 


7 


0.0 : 


: 1.0; 


sc = 


(ic * 


ic 


old 


A 

II 

o 

o 


7 


0.0 : 


: 1.0; 



} 
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/* turn the jaccb_switch on */ 
e->con . jacob_switch = 1; 

/* save the external output variables */ 

for (i = 0 ; i < 6 ; it 4 -) 

e->con.ext out[i] = e->con .state [i] ; 



} 
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f_breaker_3p . c 



/* f_breaker_3p.c */ 

/* Norbert H. Doerry 

8 April 1989 

This routine simulates a 3 phase breaker. When a breaker is commanded 
to open, the switch is left closed until the current has a zero-crossing. 
This means that each phase will open at a slightly different time. 

Closing the switch happens instantaneously. 

The overcurrent switch is based on a psuedo-rms value for the current 



*/ 

#include <stdio.h> 
#include <math.h> 
#include "doerry. h" 



#def ine 


vOa 


e->con . in [ 0 ] 




#def ine 


vOb 


e->con . in [ 1 ] 




#def ine 


vOc 


e->con . in [ 2 ] 




#def ine 


via 


e->con . in [ 3 ] 




#def ine 


vlb 


e->con . in [ 4 ] 




#def ine 


vie 


e->con . in [ 5 ] 




#def ine 


iOa 


e->con . in [ 6 ] 




#de fine 


iOb 


e->con . in [ 7 ] 




#def ine 


iOc 


e->con . in [ 8 ] 




#def ine 


ila 


e->con . in [ 9] 




#def ine 


ilb 


e->con . in [ 10 ] 




#def ine 


ilc 


e->con . in [11] 




#def ine 


sa 


e->con . state [ 0 ] 




#def ine 


sb 


e->con . state [ 1 ] 




#def ine 


sc 


e->con .state [2 ] 




#def ine 


ia 


e->con . state [3 ] 




#def ine 


ib 


e->con .state [ 4 ] 




#def ine 


ic 


e->con . state [ 5 ] 




#def ine 


ave 


ia e->con . state [ 6] 




#def ine 


ave 


ib e->con . state [ 7 ] 




#def ine 


ave 


ic e->con . state [ 6 ] 




#def ine 


t ia e->con . state [ 9] 




#def ine 


t ib e ->con . state [ 10 ] 




#def ine 


t ic e->con . state [ 11 ] 




#def ine 


sa 


old e->con.old state 


[0] 


#def ine 


sb 


old e->con.old state 


[1] 


#def ine 


sc 


old e->con.old state 


[2] 


#def ine 


ia 


old e->con.old state 


[3] 


#def ine 


ib 


old e->con.old state 


M] 


#def ine 


ic 


old e->con.old state 


[5] 


#def ine 


ave 


ia old e->con.old state 


#def ine 


ave 


ib old e->con.old state 


#def ine 


ave 


ic old e->con.old state 


#def ine 


t ia old e->con.old state 


#def ine 


t ib old e->con.old state 


#def ine 


t ic old e->con.old state 



202 



f_breaker_3p . c 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



vOa_ 0 
vOb_ 1 
vOc_ 2 
vla_ 3 
vlb_ 4 
vlc_ 5 
iOa_ 6 
iOb_ 7 
iOc_ 8 
ila_ 9 
ilb_ 10 
ilc_ 11 

Switch e->con.ext_in [0] 



#define f 
tdefine I_trip 
tdefine time_trip 



e->con .par am [0 ] 
e->con .param [ 1 ] 
e->con .param [2 ] 



/* The following are the states of the switches */ 



#def ine 


ALL_0N 


7.0 


tdefine 


WRONG 


6.0 


tdefine 


TRIPPED_C 


5.0 


tdefine 


TRIPPED_0 


4.0 


tdefine 


SW_0FF_C 


3.0 


tdefine 


SW_0FF 0 


2.0 


tdefine 


ALL_0FF_C 


1.0 


tdefine 


ALL OFF 0 


o 

o 



breaker_3p (e, dt) 

ELEMENT *e; 
double dt; 

{ 

int i , j ; 

double va,vb,vc; 

/* initialize the jacobian matrix to zeroes if dt == 0 */ 

for (i = 0 ; dt == 0.0 && i < 6 ; i++) 

for (j = 0 ; j < 12 ; j+t) 

e->con . jacob_in [ i + 6 * j] = 0.0; 



va 




via - 


vOa; 






vb 


= 


vlb - 


vOb; 






VC 


= 


vie - 


vOc; 






ia 


= 


(ila 


- iOa) 


/ 


2.0; 


ib 


= 


( ilb 


- iOb) 


/ 


2.0; 


ic 


= 


( ilc 


- iOc) 


/ 


2.0; 



/* see if modes are illegal */ 
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{ 



if 


( sa 


> 


7 


1 1 sa 


< 


0 


1 1 sa 


== WRONG) 


sa 


= ALL_ 


JON; 


if 


( sb 


> 


7 


1 1 sb 


< 


0 


1 1 sb 


== WRONG) 


sb 


= ALL_ 


ON; 


if 


(sc 


> 


7 


1 1 SC 


< 


0 


1 1 sc 


== WRONG) 


sc 


= ALL 


ON; 



} 

if (Switch == 1.0) 

{ 

f__switch_on ( & sa) ; 
f_switch_on (&sb) ; 
f_switch^on(&sc) / 

} 

else 

{ 

f_switch_off (&sa) ; 
f_switch__of f (&sb) ; 
f_switch_jDf f (&sc) ; 

} 



/* see if breaker should open */ 

if (t_ia_old >= time_trip | | t_ib_old >= time_trip | | t_ic_old >= time_trip) 

{ 

f_breaker_of f ( &sa) ; 
f_breaker_of f (&sb) ; 
f_breaker_of f ( &sc) ; 

} 

/* if the switch is closed, the voltage should go to zero, otherwise 



the current should 


go to 


zero 


*/ 










e->con . implicit [ 0] = 


( (int) 


sa % 


2 = = 


1.0) 


? 


va : 


: ia ; 


e->con . implicit [ 1 ] = 


( (int) 


sb % 


2 == 


1.0) 


! ? 


vb : 


: ib; 


e->con . implicit [2] = 


( (int) 


sc % 


2 == 


1.0) 


1 ? 


vc : 


: ic ; 


if ( (int) sa % 2 == 1 
{ 

e->con.jacob in[0 


.0) 














+ 6 * 


vOa ] 


= - 


1.0 








e->con. jacob in[0 


+ 6 * 


vla_] 


= 


1.0 








e->con.jacob in[0 


+ 6 * 


iOa ] 


= 


0.0 








e->con . jacob in[0 

} 

else 

{ 

e->con . jacob in[0 


+ 6 * 


ila_] 




0.0 








+ 6 * 


v0a_J 


= 


0.0 








e->con . jacob in [ 0 


+ 6 * 


vla_] 




0.0 








e->con. jacob in[0 


+ 6 * 


i0a_] 


= - 


0.5 








e->con. jacob in[0 


+ 6 * 


ila_J 


= 


0.5 









} 



if ( (int) sb % 2 == 1 . 0) 

{ 

e->con . jacob_in [ 1 + 6 * v0b_] = - 1.0; 
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} 



e->con. jacob in[l 


+ 


6 


* vlb ] = 


1.0; 


e->con. jacob in [ 1 


+ 


6 


* i0b_] = 


o 

o 


e->con. jacob in[l 


+ 


6 


* ilbj = 


0.0; 



else 



{ 



e->con . jacob^in [ 1 + 6 * 
e->con . j acob_in [ 1 + 6 * 
e->con . jacob_in [ 1 + 6 * 
e->con . jacob_in [ 1 + 6 * 



vObJ 

v lb ] 

iOb_] 

ilb_] 



0 . 0 ; 

0 . 0 ; 

0.5; 

0.5; 



if ( (int) sc % 2 == 1 .0) 



{ 



e->con . jacob_in [2 + 6 
e->con . jacob_in[2 + 6 
e->con . jacob_in [ 2 + 6 
e->con . jacob_in [2 + 6 



* v0c_] 

* vlc_] 

* i0c_] 

* ilc ] 



else 



1 . 0 ; 

1 . 0 ; 

0 . 0 ; 

0 . 0 ; 



{ 



} 



e->con . jacob in[2 


+ 


6 


★ 


vOc 


.] = 


0.0; 


e->con . jacob in [2 


+ 


6 


★ 


vie 


.3 = 


0.0; 


e->con. jacob in [2 


+ 


6 


★ 


iOc 


.] = 


- 0.5; 


e->con. jacob in [2 


+ 


6 


★ 


ilc 


.] = 


0.5; 



/* the last three implicit variables assure currents are the same */ 



e->con . implicit (3] 




iOa 


+ i 1 a ; 




e->con . implicit [ 4 ] 


= 


i 0b 


+ ilb; 




e->con . implicit [ 5 ] 




iOc 


+ i 1 c ; 




e->con. jacob in[3 


+ 


6 * 


i 0 a_ ] = 


1.0; 


e->con . jacob in [3 


+ 


6 * 


ila_] = 


1.0; 


e->con. jacob in [4 


+ 


6 * 


i0b_] = 


1.0; 


e->con. jacob in [4 


+ 


6 * 


ilb_] = 


1.0; 


e->con. jacob in [5 


+ 


6 * 


iOc ] = 


1.0; 


e->con. jacob in[5 


+ 


6 * 


ilc ] = 


1.0; 



/* see if should open the switches (look for zero crossing) */ 

if (ia * ia old <= 0.0) f zero cross (&sa); 

if (ib * ib__old <= 0.0) f_zero_cross (&sb) ; 

if (ic * ic_old <= 0.0) f_zero_cross (&sc) ; 

/* update the current timers */ 

/* calculate the rms currents */ 

if (f > 1.0) f = 1.0; 
if (f < 0) f = 0.0; 

/* compute new average */ 
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ave ia 


- sqrt ( 


(1.0 


- f) * ia 


* ia + 


f 


* ave ia old 


* ave ia old) 


ave ib 


= sqrt ( 


(1.0 


- f) * ib 


* ib + 


f 


* ave ib old 


* ave ib old) 


ave ic 


= sqrt ( 


(1.0 


- f) * ic 


* ic + 


f 


* ave ic old 


* ave^ic old) 


t ia = 


(ave ia 


>= 


trip) ? t 


ia old 


+= 


dt : 0 ; 




t ib = 


(ave ib 


>= J . 


_trip) ? t_ 


ib^old 


+= 


dt : 0 ; 




t_ic = 


(ave ic 


>= I_ 


trip) ? t 


_ic_old 


+= 


dt : 0; 





/* turn the jacob_switch on */ 
e->con . jacob_switch = 1; 

/* save the external output variables */ 

for (1=0 ; i < 12 ; i++) 

e->con . ext_out [ i ] = e->con . state [ i ] ; 



/* f switch on performs the transformation of states for the 
external input variable turning on */ 

f switch on(x) 



double 

{ 

if 


*x; 


<*x 




ALL_0FF_0) 


* x « ALL_ 


J3N; 


else 


if 


(*x 


== 


ALL_0FF_C) 


*x = ALL_ 


_0N ; 


else 


if 


( *x 


== 


SW_0FF_0) 


* x = ALL_ 


_0N; 


else 


if 


( *X 


== 


SW_0FF_C ) 


* x = ALL_ 


_0N ; 


else 


if 


( *X 


== 


TRIP PED_0) 


return; 




else 


if 


(*x 


== 


TRIPPED_C) 


return; 




else 


if 


( *X 


== 


ALL ON) return; 




else 




*x 


= ALL ON; 







} 



f__swit ch_of f (x) 
double *x; 

{ 



if 




( *x 


== 


ALL_0FF_0) 


*x 


= 


ALL_0FF_0; 


else 


if 


(*x 


== 


ALL_0FF_C) 


* X 


= 


ALL_0FF_C; 


else 


if 


(*x 


== 


SWJOFFJD) 


* X 


= 


SW_0FF_0; 


else 


if 


(*x 


== 


SW_0FF_C) 


*X 


= 


SW_0FF_C; 


else 


if 


( *x 


== 


TRIPPED_0) 


* X 




ALL_0FF_0; 


else 


if 


(*x 


== 


TRIPPED_C) 


* X 


= 


ALL_0FF__C; 


else 


if 


(*X 


== 


ALL_0N ) 


*x 


= 


SW_0FF_C; 


else 




*x 




SW OFF C; 









} 

f_breaker_of f (x) 
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double *x; 
{ 



if 




(*x 


else 


if 


(*X 


else 


if 


(*x 


else 


if 


(*x 


else 


if 


(*x 


else 


if 


<*x 


else 


if 


(*x 


else 




*x 



} 



== ALL_0FF_0) 
== ALL_OFF_C) 
== SW_0FF_0) 
== SW_OFF_C) 
== TRIPPED_0) 
== TRIPPED_C) 
== ALL_ON ) 

= TRIPPED C; 



*x = ALL_0FF_0; 
*x = ALL_OFF_C; 
*X = ALL_0FF_0; 
*x = ALL_OFF_C; 
*x = TRIPPED_0; 
* x = TRIPPED_C; 
*x = TRIPPED C; 



f_zero_cross (x) 
double *x; 

{ 



if 




(*x 


else 


if 


(*x 


else 


if 


( *x 


else 


if 


(*x 


else 


if 


(*X 


else 


if 


(*x 


else 


if 


<*x 


else 




*x 



) 



== ALL_0FF_0) 
== ALL_OFF_C) 
== SW_0FF_0) 
== SW_OFF_C ) 
== TRIPPED_0) 
== TRIPPED_C) 
== ALL_ON ) 

= ALL ON; 



*x = ALL_0FF_0; 

* x = ALL_0FF_0; 
*x = SW_0FF_0; 

* x — SW_0FF_0; 

* x = TRIPPED_0; 
*x = TRIPPED_0; 
*x = ALL ON; 
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f_spst_switch . c 



/* f_spst_switch . c */ 

/* Norbert H. Doerry 

15 March 1989 

This file describes a switch 



*/ 

#include <stdio.h> 
#include <math.h> 
#include " doerry. h" 



#def ine 


vO e->con . in [ 0 ] 






#def ine 


vl e->con.in[l] 






#def ine 


iO e->con . in [2 ] 






# define 


il e->con . in [3 ] 






#def ine 


C 

o 

1 

o 






#def ine 


vl 1 






#def ine 


i°_ 2 






#def ine 


il_ 3 






#aef ine 


Sw T itch e->con.ext 


.in [0] 


#def ine 


v e ->con . ext 


_OUt | 


[0] 


#def ine 


i e->con.ext 


_out | 


[1] 


spst switch(e,dt) 






ELEMENT 


*e ; 






double dt; 







{ 

double intea (); 



v - vO - vl; 
i = (iO - il) / 2.0; 



/* second implicit variable is sum of currents */ 
e->con . implicit [ 1 ] = iO + il; 

/* set up the jacobian matrix */ 

e->con . jacob_switch = 1; /* turn jacobian switch on */ 

if (Switch == 0) /* open * / 

{ 

e->ccn . implicit [0] = i; 



e->con.jacob in[G 




2 


* vO 


_] = 


o 

o 


e->con.jacob in[0 


+ 


2 


* vl 


_] = 


o 

o 


e->con.jacob in[0 


+ 


2 


* iO 


_] = 


0.5; 


e->con.jacob in [ 0 


+ 


2 


* il 


_] = 


-0.5; 



} 
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else /* closed */ 

{ 

e->con . implicit [ 0 ] = v; 



e->con . j acob_in [ 0 
e->con . jacob_in [ 0 
e->con . j acob_in [ 0 
e->con . j acob__in [ 0 



+ 


2 


* 


vO 


J = 


1.0; 


+ 


2 


★ 


vl_ 


_] = 


- 1.0; 


+ 


2 


★ 


i0_ 


_] = 


o 

o 


+ 


2 


* 


il 


] = 


o 

o 



e->con . jacob_in [ 1 + 2 * vO_J = 0 . 0 ; 
e->con . jacob_in [ 1 + 2 * vl_J = 0 . 0 ; 
e->con . jacob__in [ 1 + 2 * i0_] = 1 . 0 ; 
e->con . j acob_in [ 1 + 2 * i 1 ] = 1 . 0 ; 



} 
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f_gen_synch_3p . c 



/* f_gen_svnch_3p . c */ 
/* Norbert H. Doerry */ 
/* 12 March 1989 



This file simulates a synchronous generator that is modelled as 
a three phase source with a series inductance . The magnitude and 
the frequency of the generator are input variables. The phase angle 
of phase a along with the inductance are parameters. 



*/ 

#include <stdio.h> 
#include <math.h> 
#include "doerry. h" 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



RAD_DEG 0.017453293 

DEG_RAD 57.29578 
HZ_RADSEC 0.15915494 
RADSEC_HZ 6.2831853 
PHASE SHIFT 2.0943951 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
^define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
idef ine 
#def ine 
#def ine 
#def ine 
f define 
#def ine 
#def ine 



vOa e->con.in[0] 
vOb e->con.in[l] 
vOc e->con.in[2] 
vOn e->con.in[3] 
iOa e->con.in[4] 
iOb e->con.in[5] 
iOc e->con.in[6] 
iOn e->con. in [7] 
Vmag e->con.in[8] 
freq e->con.in[9] 
va e->con . state [ 0 ] 
vb e->con . state [ 1 ] 
vc e->con . state [ 2 ] 
ia e->con . state [3 ] 
ib e->con . state [ 4 ] 
ic e->con . state [ 5 ] 
t e->con . state [ 6 ] 
vga e->con . state [ ^ ] 
vgb e->con . state [ 8 ] 
vgc e->con . state [ 9 ] 



va old 


e->con.old state [0] 


vb old 


e->con.old state [1] 


vc old 


e->con.old state [2] 


ia old 


e->con.old state [3] 


ib old 


e->con.old state [4] 


ic old 


e->con.old state [5] 


t_cld 


e->con.old state [6] 


vga old 


e->con.old state [7] 


vgb old 


e->con . cld_state [ 6 ] 


vgc old 
vOa 0 
vOb 1 
vOc 2 


e->con.old state [9] 



212 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



vOn_ 3 
iOa_ 4 
i° b _ 5 
iOc_ 6 
iOn_ 7 
Vma g_ 8 
f r eq__ 9 

phase_a e ->con . param [ 0 ] 
L e->con . param [ 1 ] 

R e->con . param [ 2 ] 



gen_synch_3p (e, dt) 

ELEMENT *e; 
double dt; 

{ 

int i , j ; 

double fta, ftb, ftc, fta_old, ftb_old, ftc_old; 
double pa,pb,pc; 

/* initialize the jacobian matrix to zeroes if dt == 0 */ 



for (i = 0 ; dt — 0 . 0 


&& i 


< 


4 ; 


for (j = 0 ; j < 10 ; 


j++> 








e->con.jacob in [ i + 


4 * 


j] 


= 0 


/* 


calculate states */ 








va 


= vOa - vOn; 








vb 


= vOb - vOn; 








VC 


- vOc - vOn; 








ia 


- (iOa - iOn - iOb - 


iOc) 


/ 


o 

CM 


ib 


— (iOb - iOn - iOc - 


iOa) 


/ 


2.0 


ic 


= (iOc - iOn - iOa - 


iOb) 


/ 


2.0 



/* update the time counter */ 



t = dt + t_old; 

/* calculate phases */ 

pa - (freq * t * RADSEC_H2 + phase_a * RAD_DEG) ; 
pb — pa - PHASE_SHIFT; 
pc — pa + PHASE_SHIFT; 

/* calculate phase generator voltages */ 

vga = Vmag * cos (pa) ; 
vgb = Vmag * cos (pb) ; 
vgc = Vmag * cos (pc) ; 



/+ sum of currents should be zero * / 
e->con . implicit [ 3 ] = iOa + iOb + iOc + iOn; 
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e->con. jacob in [3 


+ 


4 


* 


i0a_] 


= 


1.0; 


e->con. jacob in [3 


+ 


4 


* 


i0b_] 


= 


1.0; 


e->con. jacob in [3 


+ 


4 


* 


i0c_] 


= 


1.0; 


e->con. jacob in [3 


+ 


4 


* 


i0n_] 


= 


1.0; 


/* see if inductance 




is 


zero 


*/ 





if (L == 0) 



e->con . implicit [ 0 ] 
e->con . implicit [ 1 ] 
e->con . implicit [2 ] 



va - vga; 
vb - vgb; 
vc - vgc; 



e->con . jacob_in [ 0 + 4 * v0a_] = 
e->con . jacob_in [ 0 + 4 * v0n_] * 
e->con . jacob_in [ 0 + 4 * freq ] 
e->con . jacob_in [ 0 + 4 * Vmag_] 



1 . 0 ; 

-1.0; 

= Vmag * t * RADSEC_HZ 
= - cos (pa) ; 



sin (pa ) , 



e->con . jacob_in [ 1 + 4 
e->con . jacob_in [ 1 + 4 
e->con . jacob_in [ 1 + 4 
e->con . jacob_in [ 1 + 4 

e->con . j acob_in [ 2 + 4 
e->con . jacob_in [ 2 + 4 
e->con . j acob_in [ 2 + 4 
e->con . jacob_in [ 2 + 4 



* v0b_] = 1.0; 

* v0n_] = -1.0; 

* freq_] = Vmag * t * RADSEC_HZ 

* Vmag_] = - cos (pb) ; 



} 



sin (pb) ; 



v0c_] = 1.0; 

v0n_] = -1.0; 
freq_] = Vmag * t * 
Vmag_] = - cos (pc) ; 



RADSEC_HZ * sin (pc); 



else if (R == 0) /* if leakage resistance is zero, output voltages are 0 */ 

{ 

e->con . implicit [ 0 ] = va; 
e->con . implicit [ 1 ] = vb; 
e->con . implicit [ 2 ] = vc; 



e->con . jacob_in [ 0 + 4 * v0a_] 
e->con . jacob_in [ 0 + 4 * v0n_] 

e->con . jacob_in [ 1 + 4 * v0b_] 
e->con . jacob_in [ 1 + 4 * v0n_] 

e->con . jacob_in [ 2 + 4 r v0c_] 
e->con . jacob_in [ 2 + 4 * v0n_] 



1 , 
-1 , 

1 , 
-1 . 

1 , 
-1 , 



} 

else 



e->con . implicit [ 0] = ia - ia_old - (dt/2.0) * 

( (va - vga) + (va_old - vga_old) ) / L - (va - va_old) / R; 

e->con . implicit [ 1] = ib - ib_old - (dt/2.0) * 

( (vb - vgb) + (vb_old - vgb_old) ) / L - (va - va_old) / R; 

e->con . implicit [ 2 ] = ic - ic_old - (dt/2.0) * 

( (vc - vgc) + (vc_old - vgc_old) ) / L - (va - va_old) / R; 
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f gen synch_3p . c 



e->con. jacob in [ 0 


+ 


4 


* 


iOa ] = 


0.5; 




e->con . jacob_in [ 0 


+ 


4 


★ 


i0b_] = 


-0.5; 




e->con. jacob in [ 0 


+ 


4 


★ 


i0c_] = 


-0.5; 




e->con. jacob in [ 0 


+ 


4 


★ 


i0n_] = 


-0.5; 




e->con. jacob in [ 0 


+ 


4 


★ 


vOa ] = 


- dt / 


(2 


e->con. jacob in [ 0 


+ 


4 


★ 


vOn ] = 


- e->con. 


e->con. jacob in[0 


+ 


4 


★ 


Vmag ] = 


cos (pa ) 


★ 


e->con . jacob in[0 


+ 


4 


* 


freq_]= 






- dt * Vmag * s; 


in (pa) 


* t * RADSEC HZ 


/ 


e->con. jacob in [ 1 


+ 


4 


★ 


i0b_] = 


0.5; 




e->con. jacob in [ 1 


+ 


4 


★ 


i0c_] = 


-0.5; 




e->con . jacob in [ 1 


+ 


4 


★ 


i0a_] = 


-0.5; 




e->con. jacob in [ 1 


+ 


4 


★ 


i0n_] = 


-0.5; 




e->con. jacob in[l 


+ 


4 


★ 


v0b_] = 


- dt / 


(2 


e->con . jacob in [ 1 




4 


* 


vOn ] = 


- e->con. 


e->con. jacob in [ 1 


+ 


4 


★ 


Vmag ] — 


cos (pb) 


★ 


e->con. jacob in [ 1 


+ 


4 


★ 


freq_] - 






- dt * Vmag * s: 


in (pb) 


* t * RADSEC_HZ 


/ 


e->con. jacob in [2 


+ 


4 


★ 


iOc ] = 


0.5; 




e->con. jacob in [2 


+ 


4 


★ 


i0a_] = 


-0.5; 




e->con. jacob in[2 


+ 


4 


★ 


i0b_] = 


-0.5; 




e->con. jacob in [2 


4 - 


4 


★ 


iOn ] = 


-0.5; 




e->con. jacob in [2 


+ 


4 


★ 


vOc ] = 


- dt / 


(2 


e->con. jacob in [2 


+ 


4 


★ 


1 ! 

Q 

o 

> 


- e->con. 


e->con. jacob in [2 


+ 


4 


★ 


Vmag_] = 


cos (pc) 


★ 


e->con. jacob in [2 


+ 


4 


★ 


freq_] = 







. 0 * L) - 
jacob_in [ 0 
dt / (2.0 



1.0 / 

+ 4 * 
* L) 



. 0 * L) -1.0/ 
jacob_in[l + 4 i 
dt / (2.0 * L) 



.0 * L) - 1.0 / 
jacob_in[2 + 4 * 
dt / (2.0 * L) 

- dt * Vmag * sin (pc) * t * RADSEC HZ / (2.0 * L) ; 



} 



/* turn the jacob switch on */ 

e->con . jacob_s witch = 1; 

/* store external output variables */ 

for ( i = 0 ; i < 6 ; i++) 

e->con.e::t out[i] = e->con . state [ i ] ; 



R; 

v0a_] 



R; 

v0b_] 



R; 

v0c_] 



215 



C.ll penner.h 



- 216 - 



penner . h 



/* penner. h */ 

/* Norbert H. Doerry 

14 March 1989 

This is an include file which tells the main program where to get 
the proper information for the devices 

*** Modified 11 April 1989 by nhd **** 

added breaker_3p 

*+* Modified 15 April 1989 by nhd **** 

added synch_mach, speed_reg, volt^reg, ind_motor, gas_turbine, source 
integrator 

*** Modified 27 April 1989 by nhd **** 
added volt meter 



typedef int ( *FUNCTION_PTR) ( ) ; 

tdefine NBR_DEV_FILES 2 /* number of device description files */ 

static char *device_f i le [ ] = /* names of the device description files */ 

{ 

" /mit/13 . 4 1 1 /sepsip/three_phase . input” , 

”/mit/13 . 4 ll/sepsip/one_phase . input" 



static int nbr_device_f ile [ ] = 

{ 

12, /* number of devices per file */ 

10 

} ; 

static char *device_name [ ] = /* names of devices */ 

{ 

,, t_ li ne_3p”, 

”rl_wye" , 

" gen_s ynch_3p ” , 

”switch_3p" , 

"rms ” , 

”breaker_3p” , 

"synch^mach" , 

”speed_reg” , 

"volt_reg” , 

”ind motor”, 

”gas_turbine " , 
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"volt_meter" , 

"inductor” , 

"capacitor ” , 

"resistor” , 

"voltage^source" , 

"current_source" , 

"diode " , 

"switch" , 

"pulse switch”, 

"source" , 

"integrator" 

} ; 

/* device functions for the above device names */ 



#define FO t_line__3p 
#define FI rl_wye 
#define F2 gen_synch_3p 
^define F3 switch_3p 
^define F4 rms 
#define F4a breaker_3p 
#define F4b synch_mach 
#define F4c speed_reg 
#define F4d volt_reg 
#define F4e ina^motor 
#define F4f gasjturbine 
#define F4g volt_meter 



^define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#aef ine 



F5 inductor 
F 6 capacitor 
F7 resistor 
F8 voltage_source 
F9 current_source 
F10 diode 
Fll spst_switch 
F12 pulse_switch 
F13 source 
F14 integrator 



int 


FO 


0 


int 


FI 


0 


int 


F2 


0 


int 


F3 


0 


int 


F4 


0 


int 


F4 a 


0 


int 


F4b 


0 


int 


F4c 


0 


int 


F4d 


0 


int 


F4e 


0 


int 


F4f 


0 


int 


F4g 


0 


inr 


F5 


0 


int 


F6 


0 
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int F7 () ; 
int F6 (); 
int F9 () ; 
int FI 0 () ; 

int FI 1 () ; 

int F12 () ; 

int F13 () ; 
int FI 4 () ; 



static FUNCTI0N_PTR dev_fnctn[] = /* addresses of device functions +/ 

{ 

FO, 

FI, 

F2, 

F3, 

F4, 

F4 a, 

F4b, 

F4c, 

F4d, 

F4e, 

F4f, 

F4g, 

F5, 

F 6 , 

F7, 

F8 , 

F9, 

FI 0 , 

FI 1 , 

F12 , 

F13, 

FI 4 



} ; 
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three_phase . input 



three_phase . input 
Norbert H Doerry 



! 11 March 1989 

i *** i a st update 

! *** updated 


17 April 1989 
27 April 1989 



This file describes the following devices 



! t line_3p 


: transmission line 


! rl wye 

! gen synch 3p 

! switch 3p 

! rms 

! breaker 

synch mach 
! speed reg 

! volt_reg 

! ind motor 


:RL Wye Load 

: synchronous generator with synchronous reactance 
rthree phase switch 

•.calculates average value of voltage 
: three phase breaker 
: synchronous machine model 

.•speed regulator model (turbine with governor) 
:voltage regulator (field excitation) 

: induction motor model 


! gas turbine 

! volt meter 

1 


: gas turbine model 
: three phase voltage meter 


name t line 3p 
inputs 12 
vOa 
vOb 
vOc 
via 
vlb 
vie 
iOa 
iOb 
iOc 
ila 
ilb 
ilc 

states 6 
va 
vb 
VC 
ia 
ib 
ic 

implicit 6 
integ a 
integ b 
integ c 
i sum a 
i sum b 
i sum c 

external output 6 
float Va 
float Vb 
float V c 
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float la 
float lb 
float Ic 

parameters 3 
R 
L 
R1 

end 

j 

name rl_wye 

inputs 8 
vOa 
vOb 
vOc 
vOn 
iOa 
iOb 
iOc 
iOn 

states 6 
va 
vb 
vc 
ia 
ib 
ic 

implicit 4 
int_a 
int_b 
int_c 
i sum 



external 


output 6 


float 


Va 


float 


Vb 


float 


Vc 


float 


Ia 


float 


Ib 


float 


Ic 


parameters 3 



R 

L 

R1 

end 

j 

name gen_synch_3p 

inputs 10 
vOa 
vOb 
vOc 
vOn 
iOa 
iOb 
iOc 
iOn 
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Vmag 
f req 

states 10 
va 
vb 
vc 
ia 
ib 
ic 



vga 

vgb 

vgc 



implicit 


A 


int a 




int_b 




int c 




i sum 




external 


outpu 


float 


Va 


float 


Vb 


float 


Vc 


float 


la 


float 


Ib 


float 


Ic 



parameters 3 
phase__a 



R 

end 

j 

name switch_3p 

inputs 12 
vOa 
vOb 
vOc 
via 
v lb 
vie 
iOa 
iOb 
iOc 
i la 
ilb 
ilc 

states 6 
sa 
sb 
sc 
ia 
ib 
ic 

implicit 6 
integ_a 
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int eg_b 
integ_c 
i_sum_a 
i_sum_b 
i_sum_c 

external input 1 
switch Switch 
external output 6 
switch Sa 
switch Sb 
switch Sc 
float la 
float lb 
float Ic 

end 

I 

name rms 
inputs 2 
vO 
vl 

states 1 
ave 

external output 1 
float v 
parameters 1 
f 

end 

| 

name breaker_3p 
inputs 12 
vOa 
vOb 
vOc 
via 
vlb 
vie 
iOa 
iOb 
iOc 
ila 
i lb 
ilc 

states 12 
sa 
sb 
sc 
ia 
ib 
ic 

ave_ia 
ave_ib 
ave_ic 
t_ia 
t ib 
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t_ic 

implicit 6 
integ a 
integ_b 
integ_c 
i__sum_a 
i_sum_b 
i_surn_c 

external input 1 
switch Switch 
external output 6 
switch Sa 
switch Sb 
switch Sc 
float la 
float lb 
float Ic 
parameters 3 
f 

I_trip 

time_trip 

end 

j 

name synch_mach 
inputs 17 
vOa 
vOb 
vOc 
vOn 
iOa 
iOb 
iOc 
vOf 
vlf 
iOf 
ilf 
theta 
wm 

wm_dt 

Te 

Fsi_q 
Psi_d 
states 13 
s_theta 
s_wm 
s_wrn_dt 
psi_d 
psi_q 
eq_p 
eq__pp 

ed _pp 

d__psi_d 

d _P si _q 

d _ec_p 
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d_e q^pp 
d__e d__pp 
implicit 11 
isum 
i f sum 
vo 

i_ psi_d 

i_psi_q 

i_e q_pp 

i_ed_pp 

i_eq_p 

Tore 

W 

Wdot 

parameters 16 
xd 
xq 

■*:d, — F 

>:d_pp 

>:q_pp 

xal 

Tdo_p 

TdO— pp 

Tqo^p 

Tad 

Ifni 

H 



pp 




wbs 




Vdb 




Pbs 




external 


OUtpU' 


float 


xad 


float 


xkd 


float 


xf 


float 


rf 


float 


IdB 


float 


IfE 


float 


VfB 


float 


Tbs 


float 


alpha 


float 


if d 


float 


vfd 


float 


eaf 


float 


vd 


float 


vq 


float 


id 


float 




float 


Tepu 


float 


RPM 


float 


Prr.ech 


float 


Pe 


float 


Tacc 


float 


la 
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float lb 
float Ic 

end 

name speed_reg 
inputs 3 
wm 
Tm 
s 

states 2 
! wg 
! ws 

Tm__order 

Tmpu 

implicit 1 
dT_dt 

parameters 6 
wnlo 
wds 

wdTepu 

TBS 

Tg 

B 

external outputs 4 
float Tmm 
float Tm_ 
float Pshaft 
float Pdeliver 
end 

name volt^reg 
inputs 11 
vOa 
vOb 
vOc 
vOf 
v 1 f 
iOf 
ilf 
vbs 
wbs 
phase 
vt 

states 4 
Verr 
Vsig 
theta 
clip 

parameters 5 

Yf dfcs 
K 

Tvr 
Vf max 
Vfmin 
implicit 4 
II 



227 



three_phase . input 



12 

I sum 

Integrate 

end 

name ind_motor 

inputs 13 
vOa 
vOb 
vOc 
iOa 
iOb 
iOc 
theta 
win 

wm_dt 

vOn 

ira 

irb 

ire 

parameters 9 
Rs 
Xls 
XM 

Xlr_prime 

Rr_prime 

J 

wbs 

PP 

B 

states 15 
lam_sa 
lam_sb 
lam^sc 
dlam_sa 
dlam_sb 
dlam_sc 
lam_ra_p 
lam_rb_p 
lam_rc_p 
dlam_r a_p 
dlam_rb_p 
dlam_r c_p 
theta_s 
w_s 

w_dot_s 

implicit 10 
Ila 
lib 
lie 
lira 
I lrb 
lire 
I sum 
W 
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Wdot 

Torque 

external inputs 1 
float Tmech 
external outputs 9 
float RPM 
float Te 
float Td 
float T1 
float WATTS 
float HP 
float la 
float lb 
float Ic 
end 

name gas-turbine 
inputs 3 
wm 

wm_dt 

Tm 

end 

name volt_meter 
inputs 6 
vOa 
vOb 
vOc 
wbs 
phase 
vt 

parameters 1 
Vbs 

implicit 2 

11 

12 

states 1 
theta 

external outputs 2 
float Vt 
float Phase 
end 
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! one_phase . input 

i 

! Norbert H Doerry 

i 

! 15 March 1989/ modified 15 april 1989 

i 

! The descriptions for the following devices are contained here 
! inductor 

! capacitor 

! resistor 

! voltage__source 

! current_source 

! diode 

! switch 

! pulse_switch 

! source 

! integrator 

i 

name inductor 
inputs 4 
vO 
vl 

10 

11 

states 2 
v 
i 

implicit 2 
integrator 
current_sum 
external output 2 
float v 
float i 
parameters 1 
L 

end 

i 

I 

name capacitor 
inputs 4 
vO 
vl 

10 

11 

states 2 
v 
i 

implicit 2 
integrator 
current_sum 
external output 2 
float v 
float i 
parameters 1 
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C 

end 

I 

t 

name resistor 
inputs 4 
vO 
vl 

10 

11 

implicit 2 
ohms_law 
current^sum 
external output 2 
float v 
float i 
parameters 1 
R 

end 

j 

t 



name voltage__source 
inputs 4 
vO 
vl 

10 

11 

implicit 2 

voltage__difference 
current_sum 
external output 2 
float v 
float i 

external input 1 
float VO 

end 

# 

# 



name current_source 
inputs 4 
vO 
vl 

10 

11 

implicit 2 
current_0 
current_l 
external output 2 
float v 
float i 

external input 1 
float 10 

end 

# 
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I 

name diode 
inputs 4 
vO 
vl 

10 

11 

implicit 2 
diode_law 
curr ent_sum 
external output 2 
float v 
float i 
parameters 1 
Vd 
end 

i 

j 

name switch 
inputs 4 
vO 
vl 

10 

11 

implicit 2 
switch_eqt 
curreiit__sum 
external output 2 
float v 
float i 

external input 1 
switch switch 
end 

i 

j 

name pulse_switch 
inputs 4 
vO 
vl 

10 

11 

implicit 2 
switch_eqt 
curr ent_sum 
states 1 
time 

external output 3 
float v 
float i 
switch switch 
parameters 4 
period 
duty_cycle 
t on 
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t_of f 
end 

t 

name source 
inputs 1 
out 

implicit 1 
difference 
external input 1 
float in 
parameters 1 
scale 
end 

name integrator 
inputs 2 
VL 

y 

implicit 1 
integ 

parameters 1 
tau 

states 2 
X 
Y 

end 
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MENU DRIVER CODE 
D.l menu.c 



SEPSIP uses a separate menu driver program for the utility menu. This was done to 
allow the user to customize the utility options without recompiling SEPSIP. By editing the 
file sepsip_util.menu, the utility menu can be modified without any recompilation. 
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/* menu . c */ 

/* Norbert H Doerry 
5 March 1988 

This program is a universal menu driver. It requires 
that another file exist with the same name plus an 
extension of .menu This second file is a text file 
that contains the program header and all the menu 
information in the following format : 

( header ) ( As many lines as you would like as long 

as none of them begins with ! ) 

! (header delimiter) 

string (what the user types in to execute the 
corresponding menu item) 
name (name of menu item) 

command (program or command to be executed) 

. . . (This 3 line sequence repeated) 

! (command delimiter) 

If more than one command is given the same character, 
the first one on the list will be executed. 

The program also puts the following command at the 
top of the list : 

q 

Quit 
exit ( ) 

Thus you can' t use a q or ! for a character 

A ! inputted from the user will repeat the last 
command executed. 

***** VERSION 2.0 ******** 

Heavily revised to include the following 

- commands can be up to 10 characters long 

- arguments can be passed to the commands 

- arguments can be passed to the program 



*/ 

tinclude <stdio.h> 

#def ine CHRLEN 81 
tdefine ARRLEN 21 

typedef struct Cmd 

{ 

char string { CHRLEN] ; 
char name [CHRLEN] ; 
char command [CHRLEN] ; 
struct Cmd *next; 

} 

CMD; 
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main (argc, argv) 
int argc; 
char **argv; 

{ 

char comm [ CHRLEN ] ; /* name of this program (minus path)*/ 

char command (CHRLEN] ; /* name of this program (with path) */ 

char inline [ CHRLEN ] ; 

char line [ CHRLEN] ; 

char out line [ CHRLEN] ; 

char 1 as t_comman d [ CHRLEN] ; 

char last_all [CHRLEN] ; 

int i, j , numcmd, f lag, len; 

FILE *in; 
char ch; 

CMD cmd, *cptr; 
char *calloc(); 



strcpy (command , argv ( 0 ] ) ; 
strcat (command, " .menu" ) ; 
len = strlen (argv [ 0] ) ; 

for (i=len; ((i != -1) && argv[0][i] != ' / ' ) ; i — ); 

i++; 

for ( j = 0 ; i <= len ; i++) 
comm[j++] = argv[0](i]; 



if ((in = f open (command, "r " ) ) == NULL) 

{ 

pr intf ( "Can' t find %s\n" , command) ; 
exit () ; 

} 

inline [0] = NULL; 

while ( (fgets (inline, CHRLEN, in) !=NULL) && inline[0] != '!') 

{ 

inline [( strlen (inline) - 1)] = NULL; 
puts (inline ) ; 

} 

cptr = &cmd; 
cptr->next = NULL; 

while (1) 

( 

/* get command string */ 

if (fgets (inline, CHRLEN, in) == NULL) 
break; 

st rstr ip (inline) ; 
if (inline [0] == '!') break; 
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inline [11] = NULL ; /* limit to 10 characters long */ 

strcpy (cptr->str ing, inline) ; 

/* get command name */ 

if (fgets (inline, CHRLEN, in) ==NULL) 
break; 

strstrip (inline) ; 

strcpy (cptr->name, inline) ; 

/* get command exectution string */ 

if ( fgets (inline , CHRLEN, in ) == NULL) 
break; 

strstrip (inline) ; 

strcpy (cptr->command, inline) ; 

/* allocate new CMD structure */ 

cptr->next = (CMD *) calloc( (unsigned) 1 , sizeof (CMD) ) ; 

cptr = cptr->next? 
cptr->next = NULL; 

} 

strcpy (cptr->string, "q") ; 
strcpy (cptr->name, ’’Quit" ) ; 
strcpy (cptr->command, "exit () ") ; 

strcpy (last_command, cmd . string) ; 
strcpy (last_all , cmd . string) ; 

inline [0] = NULL; 

for (i = 1 ; i < argc ; i++) 

{ 

st r cat (inline, argv [i] ) ; 
strcat (inline, " ") ; 

} 

flag = (inline [0] != NULL) ? 1 : 0; 

while (1) 

{ 

if (flag == 0) 

{ 

printf("\n %s Opt ions : \n\n" , comm) ; 

for (cptr = &cmd ; cptr != NULL ; cptr = cptr->next) 
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printf( M %10s :: %s\n", cptr->st ring, cptr->name) ; 

printf(" Enter Option : "); 

gets (inline) ; 
strstrip (inline) ; 

/* see if should repeat last command */ 

if (strcmp (inline, "!!" ) == 0) 
strcpy (inline , last_all ) ; 
else 

strcpy (last_all, inline) ; 



/* strip off command from arguments */ 

for (i = 0 ; inline [i] != NULL && inline [i] != ' ' && 

inline [i] != ' \t' ; i++) 

{ 

line[i] = inline [i]/ 
inline [ i ] = ' ' ; 

} 

line [ i ] = NULL; 
strstrip (inline) ; 

/* see if its an exclamation marker , if so, copy last command */ 

if (strcmp (line, "! M ) == 0 || strcmp ( line ,"!!” ) == 0) 

strcpy (line, last_command ) ; 

/* find the proper command */ 

for (cptr = &cmd ; cptr ! = NULL ; cptr = cptr->next) 
if (strcmp (cptr->string, line) == 0) break; 

/* continue if didn't find the command */ 

if (cptr == NULL) 

{ 

flag = 0; 

printf ("\n * * * Command Not Found\n”); 
cont inue ; 

} 



/* quit if cptr->next is NULL */ 

if (cptr->next == NULL) 
exit ( ) ; 

/* manufacture the system call */ 

strcpy (outline , cptr->command) ; 
strcat (outline, " ” ) ; 
strcat (outline, inline) ; 
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/* update last_command */ 
strcpy (last_command, cptr->string) ; 

/* print message if flag = 1 */ 

if (flag == 1) print f ( "\n Executing : %s\n\n" , outline) ; 

/* execute the system call */ 
system (outline ) ; 

/* see if flag is set */ 
if (flag == 1) exit () ; 

) 

} 

/* strstrip */ 

/* strstrip strips a string of leading and trailing spaces and tabs */ 

strstrip ( s ) 
char *s ; 

{ 

int i, j; 

/* find first non space or tab */ 

for (i = 0 ; s[i] == ' ' || s[i] == # \t' ; i++) ; 

/* copy string */ 

for (j = 0 ; s [ i ] != NULL ; s[j++] = s[i++]); 

s [ j ] = NULL; 

/* delete trailing spaces and tabs and Cr*/ 

for (j = strlen(s) - 1 ; s[j] == ' ' II s[j] == ' \t' || 

s [ j] == ' \n' ; s[ j--] = NULL) ; 

} 



240 



D.2 sepsiputil.menu 

The executable code for the menu driver listed in the previous section is in the file 



sepsip_util. The menu text must therefore be located in the file sepsip_util.menu which is 
listed here: 



Editor -> emacs 

/mit/13 .411/ sepsip/emacs_ 

P 

Plotting -> Norplot 

/mit/13 . 4 1 1/menu /_xterm /mit/13 . 4 1 1/ norplot /Norplot 

? 

List Directory 
Is -al 

% 

Execute System Command 
/mit/13 . 411/menu/sys 

+ 

Screendump to Default Printer 
xwd | :-:pr -device ps | lpr 
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PORTABILITY CONSIDERATIONS 

In the development of SEPSIP, portability considerations played a major influence. A 
number of SEPSIP's attributes and its structure are a direct result of the desire to be able to 
easily transport the source code to other computer systems. There are however, several files 
that may need to be edited for proper operation on other systems: 

fileoptions.c 

The function change_directory() may require modification on systems not using 
the UNIX operating system. The routine presently makes one system call to pwd 
to list the present working directory. Furthermore, the system library function 
chdir() may not be available on all systems. Eliminating the contents of this routine 
will only affect the change directory option of the 
sepsip.c 

The beginning the file sepsip.c contains two define directives that are system 
dependent. These statements and their present assignment are: 

#define DIR "Is -al" 

#define CMD "/mit/13.411/sepsip/sepsip_util" 

DIR is a string containing the system command for listing the current directory. 
CMD is the path and name of the menu driver for the utility' option. 
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SEPSIP .CONFIGUR 

Norbert H. Doerry 
27 March 1989 

This is the latest configuration of SEPSIP as of 19 April 1989 



Version 1.0 of 27 March 


1989 



check name.c 

check name ( ) 


1 March 1989 


dump data.c 

dump data ( ) 


13 March 1989 


dump device.c 

dump device () 


15 March 1989 


edit simulate. c 

edit simulate () 
edit time ( ) 
edit_ jacob ( ) 
edit displayO 
delete_pv ( ) 
add_pv ( ) 
edit ref ( ) 
split elm() 
split ref ( ) 


10 April 1989 


elm jacob. c 

elm jacob ( ) 


6 March 1989 


file options. c 

file op t i on s ( ) 
write sim() 
read sim() 
write_init ( ) 
load init ( ) 


19 April 1989 



change directory () *** this routine is system dependent *** 

gauss_eliminate . c 14 February 1989 

gauss_eliminate () 



int eg . c 

integ ( ) 


18 October 1988 


ioliba . c 

stof a ( ) 
stoda ( )- 


25 March 1989 
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Stof a ( ) 

Stoda ( ) 
get f lta ( ) 
f getf lta ( ) 
parse ( ) 

Parse ( ) 
suctolc ( ) 
s let ouc ( ) 
strempa ( ) 
strnempa ( ) 
str split ( ) 
strstrip ( ) 
strextract ( ) 

*** See file ”io 

load device. c 

load_device () 

load_element . c 

load__element ( ) 

load__init ial . c 

load__initial () 
open^include ( ) 
read_init ( ) 
read_ext_init () 
read_node_volt ( ) 

load_network . c 

load__network ( ) 

load_simulation . c 

load_simulation () 
read_value ( ) 
read_display ( ) 
read_external () 
read reference () 
set_defaults () 

make_ jacobian . c 

make_jacob ( ) 

print_network . c 

print_network () 
line^counter ( ) 

read_device . c 

read_device () 

read_element . c 

read element () 



ba.help" for details *** 
22 October 1988 



9 January 1989 



20 January 1989 



26 January 1989 



27 January 1989 



15 February 1989 



18 January 1989 



6 March 1989 



25 October 1988 
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read^network . c 

read_network ( ) 
read_sub_node ( ) 
count_char ( ) 
make_str ( ) 
f gets_multiple ( ) 



17 April 1989 



sepsip. c 10 April 1989 

main() *** This routine is system dependent *** 

load_file () 

get_f ilename ( ) *** This routine is system dependent *** 

display_data ( ) 
utilities ( ) 



setup_simulat ion . c 28 February 1989 

setup_simulat ion ( ) 



simulate. c 14 March 1989 

**** Revision a: 29 March 1989 

run_simulat ion ( ) 
initialize_simulat ion () 
calc_implicit () 
implicit_error ( ) 
make_implicit () 
check_queue () 
update_variables ( ) 
print_output ( ) 
print__matrix ( ) 
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/* check^name . c */ 

/* Norbert H. Doerry 

1 March 1989 



*/ 

/* This routine checks all the element names and node names to ensure that 
they are not multiply defined. It then checks the subnode names for each 
node and ensures they aren't multiply defined 

*/ 

tinclude <stdio.h> 

#include <math.h> 

# include M doerry.h" 

check_name (nn, nnode, ee, nelm, errflag) 

NODE **nn; 
int nnode; 

ELEMENT **ee; 
int nelm; 
int *errflag; 

{ 

int i , j , k; 

/* check the element names */ 

for (i = 0 ; i < nelm ; i++) 

{ 

/* see if another element has the same name */ 

for (j = i + 1 ; j < nelm ; j++) 

{ 

if (strcmp (ee [ i ] ->name , ee [ j ] ->name ) == 0) 

{ 

printf(” *** ERROR : ELEMENT %s multiply def ined\n" , ee [ ij ->name ) 
*errflag = 1; 

} 

} 



/* see if a node has the same name */ 

for (j = 0 ; j < nnode ; j++) 

{ 

if (strcmp (ee [i] ->name, nn [ j] ->name) == 0) 

{ 

print f ( " *** ERROR : %s defined as both ELEMENT and N0DE\n", 

ee [i] ->name) ; 

*errflag = 1; 

} 

} 



} 



/* check the node names */ 
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for (i = 0 ; i < nnode ; i++) 

{ 

/* see if node is multiply defined * / 

for (j = i + 1 ; j < nnode ; j++) 

{ 

if (strcmp (nn [ i] ->name, nn [ j ] ->name) == 0) 

{ 

printf(" * * * ERROR : NODE %s multiply def ined\n" , nn ( i ] ->name) 
*errflag = 1; 

} 

} 

/* check the subnodes out */ 

for ( j = 0 ; j < nn [i ] ->nbr__subnode ; j++) 

{ 

for (k = j + 1 ; k < nn [ i ] ->nbr_subnode ; k++) 

{ 

if (strcmp (nn [i] ->subnode [ j] ->name, nn [i] ->subnode [k] ->name) = 

{ 

printf(” ERROR : SUBNODE %s : %s multiply defined\n", 

nn ( i ] ->name, nn ( i ] ->subnode ( j ] ->name) / 

*errflag = 1; 

} 
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/* commands. c */ 

/* 29 November 1988 

Norbert H. Doerry 

This file contains the code for the following commands of SEPSIP: 

device_s ummary 
display_device 
element_summary 
display_element 



*/ 

tinclude <stdio.h> 

# include <math.h> 
tinclude ’’doerry. h" 



/* Device Summary : 

This routine presents a list of all the available devices. If the 
output stream is stdout, the user is prompted to hit the return 
key after a page has been printed out. A ' q' will terminate the 
listing . 

*/ 

device_summary (dev, ndev, out) 

DEVICE **dev; 
int ndev; 

FILE *out ; 

{ 

int i , page, lasti, flag; 
char inline [MAXCHAR] ; 

fprintf (out, ”\n\n DEVICE SUMMARY \n”); 

for (i = lasti = flag = 0,page = 0 ; i < ndev ; i++) 

{ 



/* see if should start a new page */ 

if ( i % (LINES_PER_PAGE - 4) == 0 && i != ndev - 1) 

{ 

page++; 

if (flag != 0 && out == stdout) 

{ 

printf(”\n Enter <RETURN> to continue : ’’ ) ; 

gets ( inline) ; 
strstrip ( inline ) ; 

if ( inline [ 0 ] == 'q' || inline(0] == 'Q') return; 
if (inline ( 0 ) == 'b' || inline[0) == ' B ' ) 

{ 

i = lasti - LINES PER FAGE + 4; 



249 



commands . c 



if (i < 0) i = 0; 
page -= 2; 

if (page < 1) page = 1; 
lasti -= LINES_PER_PAGE - 4; 
if (lasti < 0) lasti = 0; 

} 

else 

lasti — i; 



} 

flag = 1; /* used to prevent starting of new page */ 



} 



fprintf (out, "\n\n 
page) ; 



DEVICE NAME (PAGE %d)\n\n", 



/* print out the element names */ 

fprintf (out, " %s\n" , dev [ i ) ->name) ; 

/* see if at end of listing */ 

if ( i == ndev - 1 && out == stdout) 

{ 

printf ( "\n SUMMARY COMPLETE : Enter <RETURN> to continue : " ) ; 
gets ( inline ) ; 

if ( inline ( 0 ] == 'b' || inline[0) == 'B') 

{ 

flag - 0; 

i = lasti - LINES_PER_P AGE + 3; 
if (i < 0) i = -1 ; 
page -= 2; 

if (page < 0) page = 0; 
lasti -= LINES_PER_PAGE - 4; 
if (lasti < 0) lasti = 0; 

} 

} 



} 



display__device (dev, ndev, inline) 

DEVICE *^dev; 
int ndev; 
char ^inline; 

{ 

char inlin [MAXCHAR] ; 
int i; 

/* pull off device name if it is there */ 
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strst rip ( inline ) ; 
inline [ 0 ] = 9 ' ; 

strst rip (inline) ; 

if (inline [ 0 ] == NULL) 

{ 



/* prompt user for device name if not specified on command line */ 

print f ( "\n\n Enter DEVICE NAME : "); 

gets (inlin ) ; 

strst rip ( in lin ) ; 

if (inlin [0] ==NULL) return; 

} 

else 

strcpy (inlin, inline) ; 



for (i = 0 ; i < ndev && strcmp (dev [i] ->name, inlin) != 0 ; i++) ; 

if (i == ndev) 

{ 

print f ( ”\n\n ***ERR0R : %s does not exist \n\n ”, inlin ) ; 

return ; 

} 

print_device (dev [ i] , stdout ) ; 

print f ( ” \n DEVICE DISPLAY COMPLETE : Enter <RETURN> to continue : ” ) ; 

gets ( inlin) ; 



} 

e lement_summary (e , nelm, out , line ) 
ELEMENT **e; 
int nelm; 

FILE *out ; 
char *line; 

{ 

int i, j, last j [20] ,page, lasti, flag; 
char inline [MAXCHAR] ; 



/* strip off first character of line and any following spaces or tabs */ 
str strip (line ) ; 
line [0] = ' 9 ; 

str st rip ( line ) ; 

fprintf (out, "\n\n ELEMENT SUMMARY \n"); 

j = 0; /* pointer to first element */ 

last j (0 ] = 0 ; 

page = 0; 
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flag = 0; 

for (i = 0 ; i < nelm ; i+*f) 

{ 

if ((j == (LINES_PER_PAGE - 4) f| i » 0) && i != nelm - 1) 

{ 

j = 0; 

page++; 

if (flag != 0 && out == stdout) 

{ 



printf ("\n Enter <RETURN> to continue : " ) / 

gets ( inline ) ; 
strstrip (inline ) ; 

if (inline[0] == ' q' || inline[0] 'Q') return; 

if (inline[0] == 'b' || inline[0] == 'B') 

{ 

page = (page <= 2 ) ? 1 : page -= 2; 

i = last j [page - 1]; 

} 

else 

{ 

last j [page - 1] = i; 

) 

} 

flag = 1; /* prevents prompting for return for first page */ 



} 



fprintf (out, "\n\n 
page) ; 



ELEMENT NAME (PAGE %d) \n\n" 



/* print out the element names */ 

if (line [ 0] == 'a' || e[nelm - 1 - i] ->flag == 1) 

{ 

fprintf (out, " %20s || %-30s", e [nelm - 1 - i]->name, 

e [nelm - 1 - i] ->device->name ) ; 

if (e [nelm - 1 - i] ->flag == 0) 

fprintf (out , " * * * Not Used ***\n"); 

else 

fprintf (out, "\n") ; 

j++; 

} 

/* see if at end of listing */ 

if ( i == nelm - 1 && out == stdout) 

{ 

printf ("\n SUMMARY COMPLETE : Enter <RETURN> to continue : "); 

gets ( inline ) ; 

if (inline [ 0] == 'b' || inline[0J == 'B') 
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{ 

flag = 0; 

page = (page <= 2) ? 0 : page -= 2; 

i = last j [page] - 1; 

j = LINES_PER_PAGE - 4; 

} 

} 



} 

display_element (e, nelm, inline, q, nq) 

ELEMENT **e; 
int nelm; 
char ^inline; 

QUEUE * *q; 
int nq; 

{ 

char inlin [MAXCHAR] ; 
int i; 

/* pull off element name if it is there */ 

strstrip (inline) ; 
inline [ 0 ] = ' ' ; 

strstrip ( inline ) ; 

if (inline [0] == NULL) 

{ 



/* prompt user for element name if not specified on command line */ 

printf ("\n\n Enter ELEMENT NAME : " ) ; 

gets ( inlin) ; 

str st rip ( inlin) ; 

if (inlin [0] == NULL) return; 

} 

else 

strcpy ( inlin, inline) ; 



for (i = 0 ; i < nelm && strcmp (e [ i ] ->name , inlin) != 0 ; i++) ; 

if (i - - nelm) 

{ 

print f ( "\n\n ***ERR0R : %s does not exist\n\n", inlin) / 

return; 

} 



print_element (e [ i] , stdout , q, nq, i) ; 

} 
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print__element (e , out , q, nq, eptr ) 

ELEMENT *e; 

FILE *out ; 

QUEUE **q; 
int nq; 

int eptr; /* pointer in element array */ 

{ 

char inline [MAXCHAR] ; 
int i , j , k, 1 ; 

fprintf (out, M \n\n Element : %-20s <> Device : %-20s\n\n", 
e->name / e->device->name ) ; 
fprintf (out , " Element Parameters : \n\n"); 

for (j = 0, i = 0 ; j < e->device->nbr_param ; i++,j++) 

{ 

fprintf (out , " %20s : %10.5g\n", 

e->device->param_name [ j ] , e->con . param [ j ] ) ; 

/ * after (LINES_PER_PAGE - 4) lines, wait for user to hit return 
before continuing */ 

if (i% (LINES_PER_PAGE - 4) == 0 && i != 0 && out == stdout) 

{ 

printf(” Hit <Return> to continue : " ) ; 

gets ( inline ) ; 
strstrip ( inline ) ; 

if (inline [0] == ' q' || inline [0] == ' Q f ) return; 
if (inline[0] == 'b' || inline[0] == ' B' ) 

{ 

j -= 2 * (LINES_PER_PAGE - 4); 

if (j < 0) j = 0; 

} 

} 

} 

if (e->con.nbr_ext_out > 0) 

{ 

fprintf (out , "\n External Output Variables : \n\n"); 
i++ ; 

for (j = 0 ; j < e->con .nbr_ext_out ; j++,i++) 

{ 

fprintf (out , " %20s : %12g\n” / e->device->ext_out_name [ j ] , 

e->con . ext_out [ j ] ) ; 

/* if (e->con . switch_ext_out [ j ] -= 0) 

fprintf (out, "OFF\n") ; 
else 

fprintf (out , "0N\n" ) ; */ 
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/* after (LINES_PER_PAGE - 4) lines, wait for user to hit return 
before continuing */ 

if ( i% (LINES PER PAGE - 4) == 0 && i != 0 && out = = stdout) 

{ 

print f ( ” Hit <Return> to continue : ”); 

gets ( inline ) ; 
str strip ( ini ine ) ; 

if (inline [0] == ' q' |j inline (0] == 'Q') return; 
if (inline [ 0 ] == 'b' |J inline[0] == 'B') 

{ 

j -= 2 * ( LINE S_PER_P AGE - 4); 

if (j < 0) j = 0; 

} 

} 

} 

} 

if (e->con.nbr_ext_in > 0) 

{ 

f printf (out , "\n External Input Variables : \n\n"); 
fprintf (out , ” Time :: Variable : Value\n") ; 

i + +; 

/* print out initial values of all the External Input Variables */ 

for (j = 0 ; j < e->con.nbr_ext_in ; j + +, i++) 

{ 

fprintf (out , " %8.3f :: %-20s : %f\n”, 0.0 , 

e->device->ext_in_name ( j] , 
e->con . init_ext_in ( j ] ) ; 

/* after (LINES__PER_PAGE - 4) lines, wait for user to hit return 
before continuing */ 

if (i% (LINES_PER_PAGE - 4) == 0 && i 1= 0 && out == stdout) 

{ 

printf (” Hit <Return> to continue : " ) ; 
gets ( inline ) ; 
str str ip (inline) ; 

if (inline(0] == 'q' || inlinefO] == 'Q') return; 
if (inline(0] == 'b' || inlinefO] == 'B') 

{ 

j -= 2 * ( L I NE S_P E R_P AGE -4); 

if (j < 0) j = 0; 

} 

} 
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/* print out entries for this element in QUEUE array */ 

for (j = 0 ; j < nq ; j++) 

( 

if (qtj]“>elm != eptr) 

continue; /* not this element */ 

fprintf (out , " %8.3f :: %-20s : %f\n", q[j]->time, 

e->device->ext_in_name [ q ( j ] ->var J , q { j ] ->value ) ; 

/* after (LINES_PER_PAGE - 4) lines, wait for user to hit return 
before continuing */ 

i++; 

if (i% (LINES_PER_PAGE - 4) == 0 && i != 0 && out == stdout) 

{ 

printf( M Hit <Return> to continue : "); 

gets (inline ) ; 
strstrip ( inline ) ; 

if (inline [0] == ' q' || inline [0] «*= ' Q' ) return; 
if (inline [ 0 J == 'b' || inline(0] == 'B') 

{ 

j -= 2 * (LINES_PER_PAGE - 4); 

if ( j < 0 ) j — 0; 

} 

} 



if (e->con.nbr_inputs > 0) 

{ 

fprintf (out , " \n Input Variable Initial and Present Values : \n\n"); 
i + +; 

for (j = 0 ; j < e->con.nbr_inputs ; j++, i++) 

( 

fprintf (out, ” %20s : %12g : %12g\n", e->device->input_najr\e [ j ] , 

e->con . init_in [ j 3 , e->con . in ( j ] ) ; 

/* after (LINES_PER_PAGE - 4) lines, wait for user to hit return 
before continuing */ 

if (i% (LINES_PER_PAGE - 4) == 0 && i != 0 && out == stdout) 

{ 

printf( M Hit <Return> to continue : "); 

gets ( inline ) ; 
strstrip ( inline ) ; 

if (inline [0] ' q' || inline (0) == ' Q ' ) return; 

if (inline[0j == 'b' I I inline[0) == 'B') 

( 

j -= * 2 * (LINES_PER_PAGE - 4); 
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) 



if (j < 0) j = 0; 

) 



) 



} 



if (e->con.nbr_states > 0) 

{ 

fprintf (out , "\n State Variable Initial and Present Values : \n\n"); 

i++; 

for (j = 0 ; j < e->con.nbr_states ; j++, i + + ) 

{ 

fprintf (out , ” %20s : %12g : %12g\n", e->device->state_name [ j ] , 

e->con . init_state [ j ] , e->con . state [ j ] ) ; 

/* after (LINES_PER_PAGE - 4) lines, wait for user to hit return 
before continuing */ 

if (i% (LINES_PER_PAGE - 4) == 0 && i != 0 && out == stdout) 

{ 

printf(" Hit <Return> to continue : " ) ; 

gets ( inline ) ; 
strst rip ( inline ) ; 

if (inlinefO] == ' q' || inlinefO] == 'Q') return; 
if (inline [ 0 ] == 'b' || inlinefO] == ' B' ) 

{ 

j -= 2 * (LINES_PER_PAGE -4); 

if (j < 0) j = 0; 

) 

) 

} 



if (e->con . nbr_implicit > 0) 

{ 

fprintf (out , " \n Implicit Variable Present Values : \n\n"); 
i++ ; 

for (j = 0 ; j < e->con . nbr_implicit ; j++, i++) 

{ 

fprintf (out , ” %20s : %12g\n”, e->device->implicit_name [ j ] , 

e->con . implicit [ j ] ) ; 

/* after (LINES_PER__PAGE - 4) lines, wait for user to hit return 
before continuing */ 

if (i% (LINES_PEP_PAGE - 4) == 0 && i != 0 && out == stdout) 

{ 

printf(" Hit <Return> to continue : " ) ; 

gets ( inline ) ; 
strstrip (inline ) ; 
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if ( inline [ 0 ] == ' q' || inline[0] == 'Q') return; 
if ( inline ( 0 ] == 'b' || inline[0] == ' B' ) 

{ 

j -= 2 * (LINES_PER_PAGE -4); 

if (j < 0) j = 0; 

} 

} 



} 

} 

if (e->con.nbr_inputs > 0 && e->con .nbr_implicit > 0) 

{ 

fprintf (out , "\n Jacobian Matrix Present Values : \n\n”); 

i++; 

for (1 = 0;1*5< e->con . nbr_input s ; 1++) 

{ 

for (j = 0 ; j < e->con . nbr_implicit ; j + + , i++) 

{ 

for (k=5 * 1 ; k< e->con . nbr_inputs &&k< (1+1) *5; k++) 

printf (" %1 5g" , e->con . jacob_in [ j + e->con .nbr_implicit * k] ) ; 
print f ( M \n" ) ; 

/* after (LINES_PER_PAGE - 4) lines, wait for user to hit return 
before continuing */ 

if ( i % (LINES_PER_PAGE - 4 ) == 0 && i ! = 0 && out == stdout) 

{ 

printf(" Hit <Return> to continue : "); 

gets ( inline ) ; 
str strip ( inline ) ; 

if (inline(0] == ' q' || inline(0] == 'Q ; ) return; 
if (inline ( 0 ] == 'b' || inline[0] == ' B ' ) 

{ 

j -= 2 * (LINE S_P E R__P AGE - 4); 

if (j < 0) j = 0; 



} 



} 

printf rXn") ; 

} 



} 



if (out == stdout) 

{ 

printf ("\n\n ELEMENT DESCRIPTION COMPLETE : " ) ; 
printf (” Enter <RETURN> to continue : " ) ; 

gets (inline ) ; 

} 

fprintf (out, " \n” ) ; 
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print_device__de script ion (k, name , par am, nbr, out , types , flag) 

int *k; 

char *name; 

char **param; 

int nbr; 

FILE *out ; 
int * types; 
int flag; 

{ 

int i; 

char inline [MAXCHAR] ; 

static char *typ { ] = 

{ 

"Boolean" , 

"Switch" , 

" Integer" , 

"Float" 

) ; 



/* see if the number of elements to print is zero */ 
if (nbr <= 0) return 0; 

/* see if new page before the listing */ 

if ( *k + 5 > LINE S_PER_P AGE && out = stdout) 

{ 

*k = 0; 

printf("\n Enter <RETURN> to continue : "); 

gets ( inline ) ; 
str strip ( inline ) ; 

if (inline [0] == ' q' j| inline[0] == ' Q' ) 
return 1; 

) 

fprintf (out , "\n %s\n",name); 

for (i = 0 , ( *k) += 2; i < nbr; i++ , (*k)++) 

{ 

if (flag == 0 || typesfi] <0 | | types[i] > 3) 

fprintf (out , " %s\n" , param { i ] ) ; 

else 

fprintf (out , " %-7s : %s\n", typ [types [i] ] , param[i]) 

if ( *k + 2 == LINES_PER_PAGE && out == stdout) 

{ 

*k = 0; 

print f ( "\n Enter <RETURN> to continue : "); 
gets ( inline ) ; 
strstrip ( inline ) ; 

if (inline [ 0 ] == ' q' || inline[0] == ' Q' ) 
return 1; 

) 
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} 

return 0; 

} 

print_device (d, out) 
DEVICE *d; 

FILE *out ; 

{ 

int i , k; 

char inline [MAXCHAR]; 



fprintf (out , "\n Device %3d : %s\n" , d->type, d->name ) ; 

k = 2; 

if (print__device_description (&k, " Input Variables", 

d->input_name, d->nbr_input s , out , &i , 0 ) == 1) 

return; 

if (print_device_description ( &k, " State Variables", 

d->state_name , d->nbr__states, out, &i, 0) == 1) 

return ; 

if (print_device_description (&k, " Implicit Variables", 

d->implicit_name , d->nbr_implicit , out, &i, 0) == 1) 

return; 

if (print_device_descript ion ( &k , " External Input Variables", 

d->ext_in_name , d->nbr_ext_in , out , 
d“>type_ext__in, 1 ) == 1) 

return; 

if (print_device_descript ion ( &k , " External Output Variables", 

d->ext_out_n ame , d->nbr__ext_out , out , 
d->type_ext_out , 1 ) == 1) 

return; 



if (print_device_description (&k, " Parameters", 

d->param_name , d->nbr_param, out, &i, 0) 

return; 



== 1 ) 



} 
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/* doerry.h */ 

/* Norbert H. Doerry 
28 Sept 88 
modified 9 Jan 89 
modified 15 Feb 89 

This include file is designed to test the configuration of interface 
structures for my thesis. 

The variables are divided into the following categories: 



input variables 


: variables that are connected to system nodes. These 
variables are all implicitely defined. 


state variables 


: variables that represent the internal state of the 
devices. This is not a 'state' in the strict sense 

of the term. It is instead a variable whose value 

must be ' remembered' to determine the next state 
of the device. The 'old state' variables are the 
value of the state variables during the last 
time step. 



implicit variables : variables that are driven to zero in the Newton 



external inputs 


Raphson method. 

: variables that the operator will be allowed to change 
directly during the execution of the simulatiion. 
These inputs can be of the following types : 

Boolean ( True or False) 

Switch ( On or Off) 

Integer 

Floating Point 


external output 


: variables that the operator can select to display during 
the simulation or have saved to a file for plotting 


parameters 


: These are the specific parameters for a device 
which may be different for different elements 



There are also several other definitions that must be made 

DEVICE : is a model of an electrical machine, device, or node, 

(i.e. an Inducton Motor Model would be a device) 

ELEMENT : is an actual circuit element of type DEVICE. Note that 
there can be multiple ELEMENTS of type DEVICE. 



(i.e, 


. a 3 HP induction Motor would be an element and a 


2000 


HP induction Motor would be another element of the 


same 


type . ) 
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*/ 



Idefine MAXCHAR 81 
Idefine PI 3.1415926536 
Idefine LINES PER PAGE 25 



/* define types */ 

Idefine BOOLEAN 0 
Idefine SWITCH 1 
Idefine INTEGER 2 
Idefine FLOAT 3 



typedef struct Connect 

{ 



int nbr_inputs; /* number of input variables */ 
int nbr^states; /* number of internal states */ 
int nbr_implicit ; /* number of implicit equations */ 
int nbr_ext_in; /* number of external input variables */ 
int nbr_ext_out; /* number of external output variables */ 
int nbrjjaram; /* number of parameters */ 
double *in; /* pointer to array of input variables */ 
double *state; /* pointer to array of state variables */ 
double *old_state; /* pointer to array of 'old' state variables */ 
double ^implicit; /* pointer to array of implicit variabales */ 
double *ext_in; /* pointer to array of external input variables */ 
double *ext_out; /* pointer to array of external output variables */ 
double *param; /* pointer to array of parameters */ 
double *init_state; /* pointer to array of initial values for states */ 
double * init_ext_in ; / * pointer to array of initial values for ext_in */ 
double *init_in; /* pointer to array of initial values for inputs */ 
double *jacob_in; /* pointer to jacobian matrix of implicit variables 

with respect to input variables */ 
int jacob_switch; /* = 1 if jacobian calculated by function 

= 0 if jacobian not calculated by function */ 
int *type_ext_in; /* pointer to array of external input types */ 
int * type_ext_out ; /* pointer to array of external output types */ 
int *imp_index; /* pointer to array of indexes for itab array */ 



} 

CONNECT; 



typedef struct Element 
{ 

int serial; 
char *name; 
struct Connect con; 
struct Device ^device; 
int flag; 



} 

ELEMENT; 



/* serial number of element */ 
/* pointer to name of element */ 
/* connection pointers and counters */ 
/* pointer to device */ 
/* if flag = 1 , element is used in Network 

if flag = 0, element is not used */ 
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typedef struct Device 



{ 

int type; /* 

int (*f)(); /* 

char *name; /* 

int nbr_inputs; /* 

int nbr_states; /* 

int nbr_implicit ; /* 

int nbr_ext_in; /* 

int nbr_ext_out; /* 

int nbrj)aram; /* 

char **input_name; /* 

char **state name; /* 



char **implicit_name; /* 

char **ext_in_name; /* 

char **ext_out_name; /* 

char **param_name; /* 

int *type__ext__in; /* 
int *type_ext_out ; /* 



type of device code 

starting address of routine for this type 
pointer to name of device 
number of input variables (default) 
number of internal states (default) 
number of implicit equations 
number of external input variables 
number of external output variables 
number of parameters 

pointer to an array of strings holding the 
names of the input variables 
pointer to an array of strings holding the 
names of the states 

pointer to an array of strings holding the 
names of the implicit equations 
pointer to an array of strings holding the 
names of the external input variables 
pointer to an array of strings holding the 
names of the external output variables 
pointer to an array of strings holding the 
names of the paramaters 

pointer to array of external input types 
pointer to array of external output types 



*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 



DEVICE; 



typedef struct Node 
{ 



char *name; 


/* 


name of node 




*/ 


int nbr subnode; 


/* 


number of subnodes 




*/ 


struct Subnode **subnode; 


/* 


array of pointers to 


subnodes 


*/ 


struct Node *last; 


/* 


pointer to last Node 


structure 


*/ 



} 

NODE; 

typedef struct Subnode 
{ 



int type; 


/* 


type of subnode = 0 for voltage law 
= 1 for current law 


*/ 


int ref flag; 


/* 


ref subnode flag =0 not ref : =1 is ref 


*/ 


double init volt; 


/* 


initial value of voltage if required 


*/ 


char *name; 


/* 


name of subnode 


*/ 


int nbr connect; 


/* 


number of connections at subnode 


*/ 


char **element; 


/* 


array of element names 


V 


char **variable; 


/* 


array of variable names 


*/ 


int *elm_ptr; 


/* 


pointer within element array of elements 


*/ 


int *var_ptr; 


/* 


pointer within input array 


*/ 


struct Subnode *last; 


/ 


* pointer to last Subnode Structure 


V 



} 

SUBNODE; 
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typedef struct Stream_Ptr 

{ 

FILE *in; 

struct Stream_Ptr *last; 
char filename [MAXCHAR] ; 
int line_nbr; 

} 

STREAM PTR; 



/* present stream */ 
/* last stream */ 
/* filename of stream */ 
/* current line number in file */ 



typedef struct Queue 
{ 

int elm; 
int var; 
double value; 
double time; 
struct Queue *last; 

} 

QUEUE; 

typedef struct Simulate 
{ 

double dt; 
double tmin; 
double tmax; 
double time; 
int max_iteration; 
double converge; 
double delta; 
double delta_min; 
double print dt; 

} 

SIMULATE; 



/* pointer for which element in the array */ 
/* pointer for which external input variable */ 
/* new value */ 
/* time to take on new value */ 
/* pointer to last Queue structure */ 



/* time increment in seconds */ 
/* starting time of simulation */ 
/* maximum time of simulation */ 
/* present time of simulation */ 
/* maximum number of iterations in NR */ 
/* convergence limit for NR */ 
/* percent change of variable for jacobian */ 
/* minimum change of variable for jacobian */ 
/* time increment for printing variables */ 



typedef struct Xtable 
{ 



int 


nbr ; 


/* 


number of variables tied to this variable 


*/ 


int 


* e ; 


/* 


array of element indexes 


V 


int 


* v; 


/* 


array of input variable indexes 


*/ 


int 


*mult ; 


/* 


array of multipliers for variables 


*/ 



) 

XTABLE; 

typedef struct Itable 

{ 

int e; 
int i; 

} 

ITABLE; 

typedef struct Print__var 

{ 

/* index to element or node array 
/* index to variable or subnode array 
/* type of variable = 0 for external output 



*/ 

*/ 



/* index to element array */ 

/* index to implicit variable array */ 



int e; 
int v; 
int typ; 
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struct Print_var *next; 

} 

PRINT VAR; 



— 1 for external input 
= 2 for Node Voltage 
/* pointer to next PRINT_VAR structure 



*/ 

*/ 
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/* dump_data.c */ 

/* Norbert H. Doerry 

13 March 1989 

This routine dumps the current state of the simulation to a file or 
the screen 

*/ 

tinclude <stdio.h> 

#include <math.h> 
tinclude "doerry. h" 

dump_data (out, ee, nelm, nn, nnode, qq, nq, simulate, pv, xtab, nxtab, itab, nitab) 
FILE *out ; 

ELEMENT **ee; 
int nelm; 

NODE **nn ; 
int nnode; 

QUEUE **qq; 
int nq; 

SIMULATE simulate; 

PRINT_VAR *pv; 

XTABLE * *xtab ; 
int nxtab; 

I TABLE * *itab; 
int nitab; 

{ 

int i , j , k , 1 ; 

double * jacob, * implicit, *var, *imp; 
char *calloc() ; 

PRINT_VAR * temp ; 
double implicit_error ( ) ; 

/* print out element data */ 

for (i = 0 ; i < nelm ; i++) 

{ 

/* print out header */ 

fprintf (out, " ELEMENT : %-20s <> SERIAL : %3d <> DEVICE : %-20s ", 
ee ( i] ->name , ee ( i] -> serial , ee [ i] ->device->name ) ; 
if (ee ( i] ->f lag) fprintf ( out , "\n" ) ; 
else fprintf (out, "<> *** UNUSED ***\n"); 

/* print out the parameters */ 

if (ee ( i] ->con . nbr_param > 0) 

{ 

fprintf (out, "\n PARAMETER Values\n"); 

for (j = 0 ; j < ee ( i ] ->con . nbr_param ; j++) 

{ 

fprintf (out , " %20s :: %15g\n", 
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ee [ i] ->device->param_name [ j ] , 
ee [ i] ->con . param [ j ] ) ; 

} 

} 

/* print out input variables */ 

if (ee [i] ->con.nbr_inputs > 0) 

{ 

fprintf (out , "\n INPUT Variable Initial and Present Values\n") ; 

for (j = 0 ; j < ee [ i ] ->con . nbr^inputs ; j++) 

{ 

fprintf (out , " %20s :: %15g :: %15g\n", 

ee ( i] ->device->input_name [ j ] , 
ee [i] ->con. init_in [ j] , ee [i] ->con . in [ j] ) ; 

} 

} 

/* print out the state variables */ 

if (ee [ i ] ->con . nbr_states > 0) 

{ 

fprintf (out , "\n STATE Variable Initial, Old and Present Values\n") 

for (j = 0 / j < ee (i]->con.nbr_states ; j++) 

{ 

fprintf (out, " %20s :: %15g :: %15g :: %15g\n", 

ee [ i ] ->device->state_name [ j ] , 

ee ( i] ->con . init_state ( j ] , ee (i ] ->con . old_state [ j ] , 
ee ( i] ->con . state [ j ] ) ; 

} 

} 

/* print out the implicit variables */ 

if (ee ( i] ->con . nbr_implicit > 0) 

{ 

fprintf (out ," \n IMPLICIT Variable Present Values and Index\n") ; 

for (j = 0 ; j < ee [i] ->con . nbr_implicit ; j++) 

{ 

fprintf (out , " %20s :: %15g :: %3d\n M , 

ee [i] ->device->implicit_name ( j] , 

ee ( i] ->con . implicit [ j ] , ee (i ] ->con . imp_index ( j J ) ; 

} 

} 

/* print out the external input variables */ 

if (ee (i] ->con.nbr_ext_in > 0) 

{ 

fprintf (out, M \n EXTERNAL INPUT Initial and Present Values\n") ; 
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for (j = 0 ; j < ee [i ] ->con . nbr_ext_in ; j++) 

{ 

fprintf (out , " %20s :: %15g :: %15g\n M , 

ee [ i ] ->device->ext_in_name [ j ) , 

ee [ i] ->con . init_ext_in [ j ] , ee [ i] ->con . ext_in [ j ] ) ; 

) 

) 



/* print out the external output variables */ 

if (ee [ i ] ->con . nbr_ext_out > 0) 

{ 

fprintf (out, "\n EXTERNAL OUTPUT Present Values\n"); 

for (j = 0 ; j < ee [ i ] ->con .nbr_ext_out ; j++) 

{ 

fprintf (out , " %20s :: %15g\n", 

ee [ i] ->device->ext_out_name [ j ] , 
ee [ i) ->con . ext_out [ j ] ) ; 

) 

) 



/* print out the jacobian */ 

fprintf (out, "\n\n JACOBIAN SWITCH IS " ) ; 

if (ee [ i) ->con . jacob_switch == 0) fprintf (out , "OFF\n" ) ; 
else fprintf (out , ”ON\n" ) ; 

fprintf (out, "\n\n Jacobain Mat rix\n\n" ) ; 



for (j=0; j * 5 < ee [ i ] ->con . nbr^input s ; j++) 

{ 

for (k = 0 ; k < ee [ i ] ->con . nbr_imp licit ; k+ + ) 

{ 

for (1 = j*5 ; 1 < ee [ i ] ->con . nbr_inputs && 

1 < ( j + 1) * 5 ; 1++) 
fprintf (out , " %15g”, 

ee [ i] ->con . jacob_in [k + ee ( i] ->con . nbr_implicit * 1]) 



fprintf (out, ”\n n ) ; 



) 



fprintf (out, "\n") ; 



/* print a form feed */ 
fprintf (out, "\f") ; 



/* print out network information */ 

for (i = 0 ; i < nnode ; i++) 

{ 
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fprintf (out , ”\n NODE :: %s\n\n" , nn ( i] ->name ) ; 

for (j = 0 ; j < nn [ i ] ->nbr_subnode ; j++) 

{ 

fprintf (out , " "); 

if (nn [ i] ->subnode [ j ] ->ref_f lag) 
fprintf (out, ” REFERENCE " ) ; 

if (nn ( i] ->subnode ( j ] ->type == 0) 

fprintf (out, ” VOLTAGE SUBNODE : "); 
else 

fprintf (out, " CURRENT SUBNODE : "); 

fprintf (out , M %s " , nn [ i] ->subnode ( j ] ->name ); 

if (nn ( i] ->subnode ( j ] ->type == 0) 

fprintf (out, " :: %15-g\n" , nn ( i] ->subnode ( j ] ->init_volt ) 
else 

fprintf (out, "\n M ) ; 

/* print out the attached variables */ 

for (k = 0 ; k < nn ( i ] ->subnode [ j ] ->nbr_connect ; k++) 

{ 

fprintf (out , " %20s:%-20s = %15g\n M , 

nn [ i] -> subnode ( j ] ->element [ k] , 
nn [ i] -> subnode [ j ]-> variable ( k ] , 
ee (nn [ i ] - >subnode ( j ] ->elm_jptr [k] ] -> 
con . in (nn [ i] ->subnode ( j ] ->var_ptr (k] ] ) ; 

} 

fprintf (out, "\n”) ; 



/* print out form feed */ 
fprintf (out, M \f") ; 



/* print out the queue */ 

fprintf (out , ” QUEUE\n\n" ) ; 

for (i = 0 ; i < nq ; i++) 

{ 

fprintf (out , " %20s:%-20s = %15g at time %15g\n", 
ee [ qq ( i ] ->elm] ->name , 

ee (qq (i] ->elm] ->device->input_name [ qq ( i ] ->var] , 
qq [ i] ->value, 
qq [ i] ->time ) ; 

} 
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fprintf (out, "\f ") ; 

fprintf (out, " IMPLICIT VECTOR\n\n" ) / 

fprintf (out , " Implicit Error = %-15g\n\n" , implicit_er ror (ee , nelm) ) 

for (i = 0 ; i < nitab / i+ + ) 

{ 

fprintf (out, " %2d %20s:%-20s - %15g\n",i, 

ee [ it ah [ i] ->e] ->name, 

ee ( itab [i] ->e] ->device->implicit_name ( itab ( i] ->i] , 
ee [ itab [i] ->e] ->con . implicit [ itab [ i ] ->i] ) ; 



/* print out form feed */ 
fprintf (out, "\f") ; 

fprintf (out, " INPUT VARIABLE VECTOR\n\n" ) ; 

for (i = 0 ; i < nxtab ; i++) 

{ 

fprintf (out , " Variable %d\n",i); 

for (j = 0 ; j < xtab[i]->nbr ; j++) 

fprintf (out , " %20s:%-20s = %14g x %3d\n", 

ee [ xt ab [ i] ->e ( j ] ] ->name , 

ee[xtab[i]->e[j] ] ->device->input_name (xtab [ i] ->v [ j ] ] , 
ee (xtab [i ] ->e [ j ] ] ->con . in [xtab [ i] ->v [ j ] ] , 
xtab [ i ] ->mult [ j ] ) ; 

) 



/* assemble and print out the jacobian matrix */ 
fprintf (out, "\f " ) ; 

jacob = (double *) calloc (nxtab * nitab , 

implicit = (double *) calloc (nxtab , 

imp = (double *) calloc (nxtab , 

var =■ (double *) calloc (nxtab , 

/* make the jacobian matrix */ 

make_ jacob ( jacob, xtab, nxtab, it ab , nitab, ee , nelm, nn , nnode , simulate) ; 

/* print out the jacobian matrix */ 

fprintf (out, "\n SYSTEM JACOBIAN MATRIX\n\n" ) ; 



sizeof (double) ) ; 
sizeof (double) ) ; 
sizeof (double) ) ; 
sizeof (double) ) ; 
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for (i = 0;i*5< nxtab ; i + + ) 

{ 

fprintf (out, " %3s " , " ") / 

for ( k = 5 * i ; k< nxtab && k < 5 * (i+1) ; k++) 

{ 

fprintf (out , " %3d ",k); 

} 

fprintf (out, "\n") ; 

for (j = 0 / j < nitab ; j++) 

{ 

fprintf (out , " %3d ”,j); 

for (k = 5 * i ; k < nxtab && k < 5 * (i+1) ; k++) 

{ 

fprintf (out , " % 14g" , jacob [ j + nitab * k] ) ; 

) 

fprintf (out, "\n") ; 

} 

fprintf (out, "\n\n") ; 

) 

fprintf (out, "\f") ; 

/* print out Newton Raphson Correction */ 

/* make the implicit variable vector */ 

make_implicit (ee, nelm, itab, nitab, implicit) ; 
make_implicit (ee, nelm, itab, nitab, imp) ; 

/* solve the system of equations */ 

i = gauss^eliminate (nxtab, jacob, implicit , var) ; 

/* note that the contents of jacob and implicit were 
destroyed by gauss_eliminate */ 

fprintf (out, M \n IMPLICIT VECTOR and CORRECTION VECTOR\n\n" ) ; 

if (i != 0) 

fprintf (out, " *** SINGULAR SYSTEM MATRIX ***\n\n M ); 

fprintf (out, "\n n Implicit Correction\n") / 

for (i = 0 ; i < nitab ; i++) 

fprintf (out , " %3d %15g %15g\n M , i, imp [i] , var [i] ) ; 

fprintf (out, ”\f *' ) ; 



/* print out the smulation stuff */ 
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fprintf (out, 


"\n\n SIMULATION 


fprintf (out , 


" DT 


= 


fprintf (out , 


" TMIN 


= 


fprintf (out , 


" TMAX 


= 


fprintf (out , 


" TIME 




fprintf (out , 


,? MAX_ITER 


= 


fprintf (out , 


" CONVERGE 


= 


fprintf (out, 


" DELTA 


= 


fprintf (out , 


" DELTA_MIN 


= 


fprintf (out , 


” PRINT_DT 


= 



DATA\n\n” ) ; 

%g\n", simulate . dt) ; 

%g\n", simulate .tmin) ; 

%g\n" , simulate . tmax) ; 

%g\n" , simulate . time) ; 

%d\n", simulate .max_iteration ) 
%g\n", simulate .converge) ; 
%g\n M , simulate .delta) ; 

%g\n" , simulate . delta_min) ; 
%g\n\n\n", simulate .print_dt) ; 



fprintf (out, ,? DISPLAYED VARIABLES \n\n") ; 



for (temp = pv->next ; temp ! = NULL ; temp = temp->next) 



{ 



if (t emp->typ == 0) /* external output */ 

f print f (out , " %20s : %-20s\n" , 

ee [temp->e] ->name, 

ee [temp->e] ->device->ext_out_name [temp->v] ) ; 
else if (temp->typ — = 1) /* external input */ 

f pr intf (out , " %20s : %-20s\n" , 

ee [temp->e] ->name, 

ee [temp->e] - > de vi ce -> ext_in_n ame [temp->v] ) ; 
else /* subnode voltage */ 

f pr intf (out , " %20s : %-20s\n" , 

nn [temp->e] ->name, 

nn [temp->e] ->subnode [temp->v] ->name) ; 



} 



} 
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/* dump_device . c */ 
/* Norbert H. Doerry 

15 March 1989 



This routine prints out all the device characterist ics of all the 
devices to the filename specified to it. If the filename is not 
provided, then it is written to the stdout 



*/ 

#include <stdio.h> 

#include <math.h> 
tinclude ’’doerry. h" 

dump__device (dev, ndev, inline ) 

L'EVICE * *dev; 
int ndev; 
char ^inline; 

{ 

int i; 

FILE *out ; 

inline [0] = ' ' ; 

strstrip ( inline ) ; 

/* open stream */ 

out = (inline [0] == NULL) ? stdout : f open ( inline , ”w” ) ; 
if (out == NULL) out = stdout; 

/* print out devices */ 

for (i = 0 ; i < ndev ; i++) 

{ 

print_device (dev ( i] , out ) ; 
if (i < ndev - 1 && out != stdout) 
fprintf (out, "\f") ; 
else if (out == stdout) 

{ 

printf(" Enter <RETURN> to continue : "); 

gets ( inline ) ; 

} 

} 

/* close file */ 

if (out != stdout) fclose (out) ; 



) 
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/* edit_s imulate . c */ 

/* Norbert H. Doerry 

27 March 1989 

This routine allows the user to edit the simulation parameters 



*** modified 10 April 1989 to fix error in edit_ref routine *** 



*/ 

finclude <stdio.h> 

#include <math.h> 

#include "doerry. h" 

edit_s imulate (ee,nelm,nn, nnode, simulate, pv, line) 
ELEMENT **ee; 
int nelm; 

NODE **nn; 
int nnode; 

SIMULATE * s imulate; 

PRINT_VAR *pv; 
char *line; 

{ 

double val; 

char ch, inline [MAXCHAR] , cmd; 
int ncnt, flag; 



/* strip off the edit_s imulate command */ 

strcpy (inline , line) ; 

strstrip ( inline ) ; 

inline [0] = ' ' ; 

strstrip ( inline ) ; 

cmd = inline [0]; 



if (cmd != 't' && cmd != ' j ' && cmd != ' r ' && cmd != 'd') 

flag - 1; 
else 

flag = 0; 



while (1) 



{ 



if 

{ 



(flag) 



printf("\n Edit 
pr int f ( " d 

print f ( " j 
printf(" q 
printf(" r 
print f ( " t 
printf(" Enter 



SIMULATE Section\n" ) ; 

Edit Display Variables\n" ) ; 

Edit Jacobian Parameters\n") ; 

Quit \n" ) ; 

Edit Reference Voltage Subnodes\n" ) ; 
Edit Time Parameters\n " ) ; 

Command : ” ) ; 
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gets ( inline ) ; 
strstrip ( inline ) ; 
cmd = inline [0] ; 
if (cmd == ' q ' ) return; 

if (cmd != 't' && cmd ! = ' j ' && cmd != 'r' && cmd != ' d' ) 

continue ; 



if (cmd == ' d' ) 

edit_di splay ( inline , ee, nelm,nn, nnode, pv) ; 
else if (cmd == ' j' ) 
edit_jacob (simulate) ; 
else if (cmd == 9 r' ) 

edit_ref (inline, ee, nelm, nn, nnode, simulate) ; 
else if (cmd == 't' ) 
edit__time (simulate) ; 

if (flag == 0) return; 

} 

} 

edit_time (simulate) 

SIMULATE * simulate; 

{ 

char ch, inline [MAXCHAR] ; 
double val; 
int ncnt; 

/* enter time increment */ 



a : 

printf(" Enter TIME^STEP (default %12.5g) : ”, simulate->dt) ; 

gets ( inline ) ; 

ch = Stoda (inline, &val, &ncnt, 1 ) ; 
if (ch == ' q' ) return; 

if (ncnt == 1 && val > 0) simulate->dt = val; 



b: 

printf( M Enter TMIN (default %12.5g) : ", simulate->tmin) 

gets ( inline ) ; 

ch = Stoda ( inline ,& val , &ncnt , 1 ) ; 
if (ch == r q' ) return; 
if (ch == ' b' ) goto a; 

if (ncnt == 1) simulate->tmin = val; 



c : 

printf(" Enter TMAX (default %12.5g) : ", simulate->tmax) 

gets ( inline ) ; 

ch = Stoda (inline, &val, &ncnt, 1) ; 
if (ch == ' q' ) return; 
if (ch == 'b' ) goto b; 

if (ncnt == 1) simulate->tmax = val; 
d: 
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printf(" Enter PRINT_STEP (default %12.5g) : " , simulate->print_dt ) ; 

gets ( inline ) ; 

ch = Stoda ( inline , &val , &ncnt , 1 ) ; 
if (ch == ' q' ) return; 
if (ch == 'b' ) goto c; 

if (ncnt == 1 && val > 0) simulate->print_dt = val; 



} 

edit_ jacob (simulate ) 
SIMULATE * simulate ; 

{ 

char ch, inline [MAXCHAR] ; 
double val; 
int ncnt; 



e : 

printf(" Enter CONVERGE (default %12.5g) : ", simulate->converge) ; 

gets ( inline ) ; 

ch = Stoda (inline , &val, &ncnt, 1 ) ; 
if (ch == ' q' ) return; 

if (ncnt == 1 && val > 0) simulate->converge = val; 
f : 

printf(" Enter MAX_ITERATION (default %12d) : " , simulate->max_iteration) 

gets ( inline ) ; 

ch = Stoda ( inline ,& val, &ncnt , 1 ) ; 
if (ch == ' q' ) return; 
if (ch == 'b') goto e; 

if (ncnt =— 1 && val > 0) simulate->max_iteration = (int) val; 

g: 

printf(” Enter DELTA (default %12.5g) : " , simulate->delta ) ; 

gets ( inline ) ; 

ch = Stoda (inline , &val, &ncnt, 1 ) ; 
if (ch == ' q' ) return; 
if (ch == ' b' ) goto f; 

if (ncnt =- 1 && val > 0) simulate->delta = val; 
h: 

print f(" Enter DELTA_MIN (default %12.5g) : ", simulate->delta_min) ; 

gets ( inline ) ; 

ch = Stoda ( inline ,& val , &ncnt , 1 ) ; 
if (ch == ' q’ ) return; 
if (ch == 'b') goto g; 

if (ncnt == 1 && val > 0) s imulate->delta_min = val; 



} 

edit_di splay (inline , ee, nelm, nn, nnode, pv) 
char ’’'inline; 

ELEMENT **ee; 
int nelm; 

NODE **nn; 
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int nnode; 

PRINT_VAR *pv; 

{ 

int i, j , typ, f lag, e, v; 

PRINT_VAR * temp ; 

char line [MAXCHAR] , cmd, en [MAXCHAR] , vn [MAXCHAR] ; 

/* strip inline of first character */ 

strcpy (line, inline) ; 
line [0] = ' ' ; 

str strip ( line ) ; 

cmd = line ( 0 ] ; 

/* see if cmd is a valid command */ 

if (cmd == 'a' || cmd == ' d ' ) 

flag = 1; 
else 

flag = 0; 

while (1) 

( 

if (flag == 0) 

{ 



print f ( M \n 



DISPLAY VARIABLES\n") ; 



for (temp = pv->next ; temp != NULL ; temp = temp->next) 

{ 



} 



if (temp->typ == 0) 

printf (” %20s : %-20s\n" , ee [ temp->e ) ->name , 

ee [temp->e] ~>device->ext_out_naine [temp->v] ) 
else if (temp->typ == 1) 

printf (” %20s ; %-20s\n M , ee ( temp->e ] ->name , 

ee [temp->e] ->device->ext_in_name [temp->v] ) ; 
else if (temp->typ == 2) 

printf( M %20s : %-20s\n" , nn [ temp->e] ->name, 

nn (temp->e) ->subnode [temp->v] ->n ame ) ; 



if (cmd == ' q ' ) return 0; 



print f ( "\n Edit DISPLAY VAR. I ABLE S COMMAND S \ n” ) ; 

printf (" a Add Display Variable\n") ; 

printf(" d Delete Display Variable\n”) ; 

printf (" q Quit Edit Display Variables\n") ; 

printf ( " Enter Command : "); 

gets ( line ) ; 

strstrip ( line ) ; 

cmd = line ( 0 ] ; 

if (cmd == 'q') return 0; 

else if (cmd ! = 'a' && cmd != ' d' ) continue; 
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} 

/* strip off command */ 

line [ 0 ] = ' ' ; 

strstrip (line) ; 

/* strip off element/node and variable/subnode */ 
split_elm (line, en, vn) ; 

/* see if the element/node are there */ 

if (en [ 0 ) == NULL || vn(0] == NULL) 

{ 

printf("\n Enter Display Variable (Element : Variable) : " ) 

gets (line ) ; 

split_elm (line, en, vn) ; 

> 

/* If the entry is hosed, show the menu */ 

if (en [ 0 ] == NULL || vn(0] == NULL) 

{ 

flag = 0; 
continue ; 

} 



/* find the element */ 

for (i = 0 ; i < nelm && strcmp (ee [ i ] ->name , en) != 0 ; i++) ; 

if (i == nelm) 

{ 

for (i = 0 ; i < nnode && strcmp (nn [ i ] ->name , en ) != 0 ; i++ 

if (i == nnode) 

{ 

printf(" *** Unable to find element/node %s\n",en); 
flag = 0; 
continue ; 

} 

typ = 2; 

for (j = 0 / j < nn ( i] ->nbr_subnode && 

strcmp (nn [ i] ->subnode ( j ] ->name , vn) != 0 ; j++) ; 

if (j == nn [ i ] ->nbr_subnode ) 

{ 

print f ( ” * * * Unable to find SUBNODE %s\n",vn); 
flag = 0; 
continue ; 
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if (nn [ i] ->subnode [ j ] ->type == 1) /* current subnode */ 

{ 

printf(" *** SUBNODE %s : %s is a current subnode\n", en, vn) ; 

flag *= 0; 

continue; 

} 



} 

else /* its an element : variable entry */ 

{ 

/* see if its an external output variable */ 

for (j = 0 ; j < ee [ i ] ->con . nbr_ext_out && 

strcmp (ee [ i] ->device->ext_out_name [ j ] , vn) != 0 ; j++) ; 

if (j == ee [ i ] ->con . nbr_ext_out ) /* wasn't an external output */ 

{ 

for (j = 0 ; j < ee [ i ) ->con . nbr_ext__in && 

strcmp (ee [ i] ->device->ext_in_name [ j ], vn) != 0 ; j++) ; 

if ( j == ee [ i] ->con . nbr_ext_in) /* wasn't an external input */ 

{ 

print f ( " *** Unable to find VARIABLE %s\n M ,vn); 
flag = 0; 
continue ; 

} 

typ = i; 

) 

else 

typ = 0; 

} 

/* now lets get to work */ 

if (cmd == ' d ' ) 

delet e_pv ( i , j, typ,pv) ; 
else 

addjpv(i, j, typ, pv ) ; 
if (flag) return; 



} 

} 

delete_pv (i , j , typ, pv) 
int i, j, typ; 

PRINT_VAR *pv; 

{ 

PRINT_VAR * temp , * last ; 
last = pv; 

for (temp = last->next ; temp != NULL ;temp = last->ne;:t ) 

{ 
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if (temp->e == i && temp->v == j && temp->typ == typ) 

{ 

last->next = temp->next; 
free (temp) / 

} 

else 

< 

last = temp; 

} 

} 

} 

add jpv(i, j, typ, pv) 
int i , j , typ; 

PRINT_VAR *pv; 

{ 

PRINT_VAR *temp, *last; 
char *calloc ( ) ; 

/* ensure that the variable isn't already there, if so, delete it */ 
delete_pv ( i , j , typ, pv) ; 
last = pv; 

for (temp = last->next ; temp != NULL ; temp = last->next ) 
last = temp; 

last->next = (PRINT_VAR *) calloc ( (unsigned) 1 , sizeof (PRINT_VAR) ) ; 

temp = last->next; 

temp->e = i ; 

temp->v = j; 

t emp->typ = typ; 

temp->next = NULL; 



} 



edit_ref (inline , ee, nelm, nn, nnode , simulate ) 
char ^inline; 

ELEMENT **ee; 
int nelm; 

NODE **nn; 
int nnode; 

SIMULATE Simulate; 

int i , j , f lag, ncnt ; 

char line [MAXCHAR] , cmd, n_name [MAXCHAP] , s_name [MAX CHAR] , var [MAXCHAR] ; 
double val; 

inline [ 0 ] = ' '; 

strstrip ( inline ) ; 

/* print out the reference voltage subnodes if the user hasn' t 
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entered any arguments on the command line */ 

if (inline [0] == NULL) 

{ 

print f ( "\n\n Reference Voltage Subnodes\n\n") ; 
for (i = 0 ; i < nnode ; i++) 

{ 

for (j = 0 ; j < nn [i] ->nbr_subnode ; j++) 

{ 

if (nn [ i] ->subnode [ j ] ->ref_f lag == 0 | | 

nn [ i] -> subnode [ j ] ->type — 1) continue; 

printf(" %20s:%-20s %g\n",nn[i]->name, 
nn [i ] ->subnode [ j ] ->name, 
nn [ i ] ->subnode [ j ] ->init__volt ) ; 

} 

} 

printf( ff \n Enter Reference Voltage Subnode : "); 

gets ( inline ) ; 
str strip ( inline ) ; 



/* if still don't have anything, give up and return */ 
if (inline [0] == NULL) return; 

/* decompose the string */ 
split_ref (inline , n_name , s_name, var ) ; 

/* find the node */ 

for (i = 0 ; i < nnode && strcmp { n_name , nn [ i ] ->name ) != 0 ; i++) ; 

if (i == nnode) 

{ 

printf ("\n *** ERROR : Node %s Does not exist\n",n_name) ; 
return; 

} 



/* find the subnode */ 

for (j = 0 ; j < nn [ i ] - >nbr_s ubnode && 

strcmp (s_name, nn [i] ->subnode { j ] ->name) != 0 ; j++) ; 

if (j == nn [ i ] ->nbr_subnode ) 

{ 

printf ("\n *** ERROR : Subnode %s: %s Does not exist \n" , n_name , 
return; 



/* see if a new value was provided */ 
Stoda (var, Aval, &ncnt , 1 ) ; 



name) 
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if (ncnt -= 0) 

{ 

printf("\n Enter New Reference Voltage (default %g) : ", 

nn [ i ] ~>subnode [ j ] ->init_volt ) ; 

gets (var) ; 
strstrip (var) ; 

Stoda (var, &val, &ncnt, 1) ; 

if (ncnt == 0) return; /* give up if default desired */ 



/* set the initial voltage */ 

nn ( i ] ->subnode [ j ] ->init_volt = val; 



split_elm (in, en , vn) 
char *in, *en, *vn; 

{ 

int i , j ; 

/* strip off element/node and variable/subnode */ 

for (i = 0 ; in[i] != NULL && in[i] != ; i++) 

en [ i] = in [ i] ; 
en [ i ) = NULL; 
strstrip (en) ; 

if (in[i) != NULL) i + + ; /* look past the colon */ 

for (j = 0 ; in [i] != NULL ; i + + , j++) 

vn [ j] = in [i] ; 

vn ( j ] = NULL; 

strstrip (vn) ; 

/* ignore everything after the first space of vn */ 

for (j = 0 ; vn [ j ] != NULL && vn [ j ] !=''&& vn[j] != ; \t' ; j++) 

vn ( j ] = NULL; 



} 

split_ref (in, nn, sn, var) 
char *in, *nn, *sn, *var; 

{ 

int i , j ; 

/* strip off subnode*/ 

for (i = 0 ; in[i] != NULL && in[i] != ; i++) 
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nn [i] = in [i] ; 
nn [ i ] « NULL; 
strstrip (nn) ; 

/* strip off the subnode */ 

if (in[i] ! = NULL) i++; /* look past the colon */ 

for (j = C ; in[i] != NULL && in[i] != ' ' && in[i] != ' \t' ; i+ + , j++) 

sn [ j] = in ( i] ; 
sn ( j ] = NULL; 
strstrip ( sn ) ; 

/* strip off the value */ 

for (j = 0 ; in [ i ] != NULL ; i + + , j + + ) 

var ( j ] = in ( i ] ; 
var ( j ] = NULL ; 
strstrip (var) ; 



} 
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/* elm_jacob.c */ 

/* Norbert H. Doerry 

6 March 1989 

*/ 

/* This routine calculates the jacobian matrix for an element by varying 
the input variables and and seeing how the implicit variables change 

*/ 

#include <stdio.h> 
tinclude <math . h> 

#include "doerry .h" 

elm jacob (e, simulate) 

ELEMENT *e; 

SIMULATE simulate; 

{ 

int i, j , k ; 

double low_in , normal_in ; 

double *in, *state, * implicit, *ext_out, * temp_implicit , *temp; 
char *calloc() ; 

/* ensure delta_min is large enough to prevent divide by zero errors */ 

if (simulate . delta_min < le-20) simulate . delta_min = le-20; 

temp_implicit = (double *) calloc ( (unsigned) e->con . nbr_implicit , 

sizeof (double) ) ; 

state = e->con . state ; 
implicit = e->con . implicit ; 
ext_out = e->con.ext_out; 

e->con. state = (double *) calloc ( (unsigned) e->con . nbr_states , 

sizeof (double) ) ; 

e->con . implicit = (double *) calloc ( (unsigned) e->con . nbr_implicit , 

sizeof (double) ) ; 

e->con.ext out = (double * ) calloc ( (unsigned) e->con.nbr_ext_out , 

sizeof (double) ) ; 



for (i = 0 ; i < e->con.nbr_inputs ; i++) 

{ 

normal_in = e->con . in [i ] ; 

/* change the input variable to something somewhat smaller */ 

e ->con .in [ i ] = ( fabs (normal in * simulate . delta) > simulate . delta min) ? 

normal in * (1.0 - simulate . delta ) : normal_in — simulate . delta_min ; 

low_in = e->con.in[i) ; 

/* calculate the new implicit variables */ 
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(e->device->f ) (e, simulate. dt) ; 

/* exchange temp_implict with e->con . implicit */ 

temp = e->con . implicit ; 

e->con . implicit = temp__implicit ; 

temp_implicit = temp; 

/* change the input variable to something somewhat larger */ 

e->con.in[i] = ( fabs (normal_in * simulate . delta) > simulate . delta_min) ? 

normal_in * (1.0 + simulate . delta) : normal_in + simulate . delta_min; 

/* calculate the new implicit variables */ 

(e->device->f ) (e, simulate . dt) ; 

/* calculate the slopes */ 

for (j = 0 ; j < e->con.nbr_implicit ; j++) 

{ 

e->con. jacob in ( j + e->con . nbr_implicit * i] = 

(e->con . implicit ( j ] - temp_implicit [ j ] ) 

/ (e->con . in [ i] - low_in) ; 

} 

e->con.in[i] = normal_in; 

} 

free (e->con. state ) ; 
free (e->con . implicit) ; 
free (e->con . ext__out ) ; 
free ( temp__implicit ) ; 

e->con. state = state; 
e->con . implicit = implicit; 
e->con.ext out = ext out; 



) 
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/* f ile_opt ions . c */ 

/* Norbert H. Doerry 

13 March 1989 

This file contains the routines for saving and loading the SIMULATION 
section and the INITIALIZATION section. 

*** Modified 19 April 1989 *** 

fixed 'save simulation' to print ’’SIMULATION’' at the top 



*/ 

tinclude <stdio.h> 

#include <math.h> 
tinclude "doerry. h” 

static char sim_f ilename [MAXCHAR] , init_f ilename [MAXCHAR] ; 

f ile__options (inline, ee, nelm, nn, nnode, q, nq, simulate, pv, 
xtab, nxtab, itab, nitab, errf lag) 

char ^inline; 

ELEMENT **ee; 
int nelm; 

NODE **nn; 
int nnode; 

QUEUE * * * q ; 
int *nq; 

SIMULATE ^simulate; 

PRINT_VAR *pv; 

XTABLE **xtab; 
int nxtab; 

I TABLE **itab; 
int nitab; 
int errflag; 

{ 

int i , j , k, f lag, rw; 

char line (MAXCHAR] , filename (MAXCHAR] , string (21] , cmd; 
FILE *io; 

/* initialize flag to no errors */ 
flag = 0; 

/* copy the input line */ 
strcpy (line, inline) ; 

/* strip off the first character */ 

line ( 0 ] = ' ' ; 

strst rip ( line ) ; 

/* get the command if its there */ 
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cmd = line [ 0 ] ; 

/* get the filename if its there */ 

if (cmd != ' NULL' ) 

{ 

line [0] = ' ' ; 

strstrip ( line ) ; 
strcpy (filename, line) ; 

} 

/* if the command isn't a proper one, display the menu */ 

flag = (cmd == NULL) ? 1 : 0; 

while (1) 

{ 



if 

{ 



(flag) 



print f ( "\n\n FILE OPTIONS\n"); 

printf (" c Change Working Directory\n") ; 

if (errflag == 0) 

{ 



printf (" 
print f ( " 
printf ( " 



d Dump Simulation State\n") ; 

i Save INITIALIZATION Section\n") 

I Load INITIALIZATION Section\n M ) 



printf ( " q 
if (errflag -- 
{ 

printf ( " 
printf ( " 

} 



Quit \n " ) ; 

0 ) 



s Save SIMULATION Sect ion\n" ) ; 

S Load SIMULATION Section\n")/ 



printf (" Enter Command : "); 



gets (line ) ; 
strstrip (line ) ; 
cmd = line [ 0] ; 



/* get the filename if its there */ 



if (cmd ! = 'NULL') 

{ 

line [0] 

strstrip (line) ; 
strcpy ( filename , line) ; 



} 



if (cmd == ' q' ) 
return flag; 
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else if (cmd == ' c' ) 

change^directory (filename ) ; 

else if (cmd == ' d' && errf lag ===== 0) 

{ 

if (filename (0] != NULL) 

i = get_f ilename (filename , &io, 1 , ’’DUMP ” , 1 ) ; 
else 

i = get_f ilename (filename, &io, 1 , "DUMP”, 0) ; 
if (i != 0) return flag; 

dump_data (io, ee, nelm, nn, nnode, *q, *nq, ^simulate, 
pv, xtab, nxtab , itab, nitab) ; 

if (io != stdout) fclose(io); 

} 



else if (errflag == 0 && (cmd 

cmd 

{ 



's' 
' i ' 



cmd == 'S' || 

cmd == ' I ' ) ) 



if (cmd == 's' || cmd == ' i' ) rw = 1; /* write to file */ 

else rw = 0; /* read from file */ 



if (cmd == 's' || cmd == 'S') strcpy (string, "SIMULATION") ; 

else strcpy (string, ’’INITIALIZATION”) ; 

/* try to load file immediately if filename is non zero length */ 

if (filename [0] != NULL) 

{ 

i = get_f ilename ( filename ,& io, rw, string, 1 ) ; 

} 



/* otherwise, prompt user for filename, and provide default name */ 

else 

{ 

if (cmd == 's' || cmd == 'S') 

strcpy ( filename , sim_f ilename) ; 
else 

strcpy (filename , init_f ilename ) ; 
i = get_f ilename ( filename , &io , rw, string, 0 ) ; 

} 



/* see if the opening of the file was aborted */ 

if (i ! = 0) 
return flag; 

/* save the filename */ 
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if (cmd == ' s ' || cmd -= 'S') 

strcpy (sim_f ilename, filename); 
else 

strcpy (init_f ilename, filename) ; 

/* process the files */ 
if (cmd == 's') 

return write_sim (io, sim_f ilename , ee , nelm, nn, 
nnode, *q, *nq, ^simulate , pv) ; 
else if (cmd == 'S') 

return read^sim (io, sim_f ilename , ee ; nelm, nn, 
nnode , q, nq, simulate , pv) ; 
else if (cmd == ' i' ) 

return write_init (io, ee, nelm, nn, nnode) ; 
else if (cmd == ' I ' ) 

return load_init (io, filename, ee, nelm, nn, nnode) ; 



else flag = 1; 
if (flag == 0) return; 

} 

} 

writ e_sim (out , filename, ee, nelm, nn, nnode, q, nbrq, simulate, pv) 
FILE *out ; 
char ^filename; 

ELEMENT **ee; 
int nelm; 

NODE **nn; 
int nnode; 

QUEUE * *q; 
int nbrq; 

SIMULATE simulate; 

PRINT_VAR *pv; 

{ 

int i , j , k ; 

PRINT_VAR *temp; 

f print f (out, " ! %s\n ! \n" , filename) ; 
fprintf (out, " SIMULATION \n ! \nDISPLAY\n" ) ; 

for (temp = pv->next ; temp != NULL ; temp - temp->next) 

{ 

if (temp->typ == 0) 

{ 

fprintf (out , " %-20s : %s\n" , ee [ temp->e ] ->name, 

ee [ temp->e] ->device->ext_out_name [temp->v] ) 

} 

else if (temp->typ == 1) 

{ 

fprintf (out, " %-20s : %s\n", ee [temp->e]->name, 

ee [temp->e] ->device->ext_in__name [temp->v] ) ; 
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} 

else if (temp->typ == 2) 

{ 



} 



fprintf (out , ” %-20s : %s\n",nn[temp->e]->name, 

nn [temp->e] ->subnode [temp->v] ->name) ; 



} 

fprintf (out , " END\n! \n") ; 



fprintf (out , " 


TIME_STEP 


%g\n” 


, s imulate . dt ) ; 


fprintf (out , " 


TMIN 


%g\n" 


, simulate . tmin) ; 


fprintf (out , " 


TMAX 


%g\n" 


, s imulate . tmax) ; 


fprintf (out , " 


PRINT_STEP 


%g\n" 


, simulate .print dt ) ; 


fprintf (out , " 


DELTA 


%g\n" 


, simulate .delta) ; 


fprintf (out , " 


DELTA_MIN 


%g\n" 


, simulate . delta min); 


fprintf (out , " 


CONVERGE 


%g\n" 


, simulate . converge ) ; 



fprintf (out , " MAX_ITERATION %d\n", simulate .max^iteration) ; 
fprintf (out, " REFERENCE\n" ) ; 



for (i = 0 ; i < nnode ; i++) 

for (j = 0 ; j < nn[i]->nbr_subnode ; j + +) 

{ 



if (nn ( i ] ->subnode [ j ] ->ref_f lag == 0) 
continue; 

if (nn [ i ] ->subnode ( j ] ->type == 0) 

fprintf (out , " V : %20s : %-20s %g\n" , nn [ i ] ->name , 

nn ( i ] ->subnode [ j ] ->name , nn [ i ] ->subnode [ j ] ->init_volt ) 

else 

fprintf (out , " I : %20s : %-20s \n " , nn [ i ] ->name , 

nn [ i ] ->subnode ( j ] ->name ) ; 



} 

fprintf (out , M END\n!\n"); 



fprintf (out, "EXTERNAL INPUTS\n") ; 



for (i = 0 ; i < nbrq ; i + +) 

{ 

fprintf (out , " %20s : %20s $10g %10g\n", ee (q[i]->elm]->name, 

ee ( q [ i ] ->elm] ->de vice ->ext_in_name { q [ i ] ->var ] , q(i]->value 

q [ i ] ->t ime) ; 

} 



fprintf (out , " END\n!\n M ); 
if (out != stdout) fclose (out) ; 



return 0; 



} 

read_sim(in, filename, ee, nelm, nn , nnode , q, nbrq, simulate, pv) 

FILE * in; 

char * filename; 

ELEMENT **ee; 
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int nelm; 

NODE * *nn ; 
int nnode; 

QUEUE * * * q ; 
int *nbrq; 

SIMULATE * simulate ; 

PRINT_VAR *pv; 

{ 

STREAM_PTP *strm, stm; 
int errflag, i, j; 

PRINT_VAR ppv, *temp_pv, *old; 
QUEUE **qq; 

SIMULATE ss; 
int nq; 



/* initialize stream pointer structure */ 
strm — &stm; 
stm. in = in; 

strcpy ( stm . filename , filename); 
stm.line_nbr = 0; 
stm. last = NULL; 

/* initialize ppv */ 

ppv. next = NULL; 

/* load the simulation */ 

errflag = 0; 

load_simulation (&strm, ee, nelm, nn, nnode, & <q<q , &nq, &ss, &ppv, & errflag) 

if (errflag != 0) 

{ 

print f ( ” *** Load SIMULATION Section ABORTED ***\n"); 
return 0; /* don't load anything if there was an error */ 

} 



/* free the old queue and print_var structures */ 

for (temp _pv = pv->next; temp_pv != NULL ;) 

{ 

old = temp_pv; 

temp_pv = temp_pv->next ; 

free (old) ; 

} 

for (i = 0 ; i < *nbrq ; i++) 
free ( (*q) [i] ) ; 

f r e e ( * q ) ; 
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/* assign the new structures */ 

(*q) = qq; 

*nbrq = nq; 



pv->next = ppv.next; 

/* change the Simulate structure */ 



simulate->dt 

simulate->tmin 

simulate->tmax 

simulate->time 

simulate->max__iteration 

s imu 1 at e->con verge 

simulate->delta 

simulate->delta_min 

simulate->print_dt 

return 0; 



= ss.dt; 

= ss.tmin; 

= ss.tmax; 

= s s . t ime ; 

— ss . max_iterat ion; 
= ss. converge; 

= ss.de It a; 

= s s . de It a_mi n ; 

= ss.print_dt; 



} 



write_init (out, e, nelm, nn, nnode) 
FILE *out ; 

ELEMENT **e; 
int nelm; 

NODE **nn; 
int nnode; 

{ 

int i , j , k, ee , v; 

f print f (out, '* INITIAL I ZE\n!\n") ; 



for (i = 0 ; i < nelm ; i++) 

{ 

/* print out present values of input variables */ 



for 

{ 



} 



(j - 0 ; j < e [ i ] ->con . nbr_inputs ; j++) 

f pr intf (out , " %20s : %20s %12 . 5g\n", e [i] ->name, 

e [ i ] ->device->input_name [j] ,e [i]->con.in[j] ) ; 



/* print out present values of state variables */ 
for (j = 0 ; j < e [ i] ->con . nbr_states ; j++) 



fpr int f (out , " %20s : %20s ♦ 1 2 . 5g\n” , e [ i ] ->name , 

e [i] ->device->st ate name [ j] , e [ i ] ->con . state [ j] ) 
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fprintf (out , " END\n!\n”); 

fprintf (out , "NODE VOLTAGE INITIALIZATION^’’ ) ; 



for (i = 0 ; i < nnode ; i++) 

{ 

/* print out present values of nodes */ 

for (j = 0 ; j < nn [ i ] ->nbr_subnode ; j++) 

{ 

/* only write out those that are voltage subnodes */ 

if (nn [ i ] ->subnode [ j ] ->type != 0 ) 
continue; 



/* find pointers in element array */ 



) 



ee = nn [ i ] ->subnode [ j ] ->elm_ptr ( 0 ] ; 
v = nn [ i ] ->subnode [ j ] ->var_ptr ( 0 ] ; 



fprintf (out , ” %20s : %20s %12.5g\n", nn[i]->name 

nn [ i ] -> subnode ( j ] ->name ,e[ee] ->con . in ( v] ) 



) 



fprintf (out , ” END\n!\n”); 



fprintf (out, "EXTERNAL INPUTS INITIALI ZATION\n ! \n” ) ; 



for (i = 0 ; i < nelm ; i+ + ) 

{ 

/* print out initial values of external inputs */ 



for (j = 0 ; j < e ( i] ->con . nbr_ext_in ; j++) 

{ 

fprintf (out, ” %20s : %20s %12 . 5g\n” , e [ i] ->name , 

e [ i ] ->device->ext_in_name [ j ] , e ( i] ->con . init_ext_in [ j ] 

) 



fprintf (out , " END\n!\n" ); 
if (out != stdout) f close (out); 
return 0; 



) 

load_init (in, filename, e, nelm, nn, nnode) 
FILE *in; 

ELEtiENT **e; 
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int nelm; 

NODE **nn; 
int nnode; 
char ^filename; 

{ 

STREAM_PTR *strm,stm; 
int errflag,i,j; 

NODE * * tn ; 

ELEMENT **te; 
char *calloc() ; 

/* initialize the stream pointer */ 
strm = &stm; 
stm.in = in; 

strcpy ( stm . filename , filename); 
stm.line_nbr = 0; 
stm. last = NULL; 

/* allocate Node and Element Arrays */ 

tn = (NODE **) calloc ( (unsigned) nnode , sizeof(NODE *)); 
te = (ELEMENT **) calloc ( (unsigned) nelm , sizeof (ELEMENT *) 

for (i = 0 ; i < nnode ; i++) 

tn[i] = (NODE * ) calloc ( (unsigned) 1 , sizeof (NODE )); 
for (i = 0 ; i < nelm ; i++) 

te [ i ] = (ELEMENT *) calloc ( (unsigned) 1 , sizeof (ELEMENT) 

/* fill up the arrays */ 

for ( i = 0 ; i < nelm ; i++) 

{ 

te [ i ] ->con . nbr_inputs = e [ i ] ->con . nbr_inputs ; 
te [i] ->con.nbr_states = e [i ] ->con . nbr_states; 
te [i] ->con.nbr_ext_in = e [ i ] ->con . nbr_ext_in; 

te [ i] ->device = e [ i ] ->device ; 
te [i] ->name = e[i]->name; 

te[i]->flag = e[i)->flag; 

te [ i ] ->serial = e [i] ->serial; 

if (te [ i] ->con . nbr__inputs ) 
te ( i ] ->con . init_in = 

(double *) calloc ( (unsigned) te [ i] ->con . nbr_inputs , 
if (te [i] ->con.nbr_states) 
te [ i ] ->con . init_state = 

(double *) calloc ( (unsigned) te [ i ] ->con . nbr_states , 
if (te [ i ] ->con . nbr_ext_in ) 
te [ i ] ->con . init_ext_in = 

(double *) calloc ( (unsigned) te ( i ] ->con . nbr_ext_in , 

} 



sizeof (double) ) 



sizeof (double) ) 



sizeof (double) ) 
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for (i = 0 ; i < nnode ; i++) 

{ 

tn[i] ->name = nn[i]->name/ 

tn [ i ] ->nbr_subnode - nn [ i ] ->nbr_subnode ; 

tn [ i] ->subnode = (SUBNODE * * ) calloc ( (unsigned) tn[i] ->nbr_subnode, 

sizeof (SUBNODE * ) ) ; 

for (j = 0 ; j < tn [i] ->nbr_subnode ; j++) 

{ 

tn [ i ] ->subnode [ j ] = (SUBNODE *) calloc ((unsigned) 1, 

sizeof (SUBNODE) ) ; 

tn [ i] ->subnode [ j ] ->type = nn [ i ] ->subnode [ j ] ->type ; 
tn [ i ] -> subnode [ j ] -> init_volt = 0.0; 

tn [ i] ->subnode [ j] ->name = nn [ i ] ->subnode ( j ] ->name ; 

} 

1 

errflag = 0; 

i = load_initial (&strm, te, nelm, tn, nnode, " ! " , Serrf lag, 1) ; 

/* see if the load had an error */ 

if (i ! = 0 || errflag != 0) 

{ 

print f ( " *** Load INITIALIZATION Section ABORTED ***\n"); 
return 0; 



/* save the results */ 

for (i = 0 ; i < nelm ; i++) 

{ 

if (e [i]->con.nbr_inputs > 0) 

{ 

free (e [ i] ->con . init_in) ; 

e [ i ] ->con . init_in = te [ i] ->con . init_in; 

} 

if (e [i]->con.nbr_states > 0) 

{ 

free (e [ i] ->con . init_state ) ; 

e [i] ->con. init_state = te [ i ] ->con . init_st ate ; 

} 

if (e [ i ] ->con . nbr_ext_in > 0) 

{ 

f ree (e [ i] ->con . init_ext__in) ; 

e [ i ] ->con . init_ext_in = te [ i ] ->con . init__ext_in; 

} 

free ( te ( i ] ) ; 

} 

free (te ) ; 

for (i = 0 ; i < nnode ; i++) 
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{ 

for (j = 0 ; j < nn ( i ] ->nbr_subnode ; j++) 

{ 

if (nn [ i ] -> subnode [ j ] ->re f_f lag == 0) /* don't change ref subnode */ 

nn [ i] ->subnode [ j ] ->init_volt = tn [ i ] ->subnode [ j ] ->init_volt ; 
free ( tn ( i ] ->subnode [ j ] ) / 

} 

free ( te [ i ] ) ; 

} 

f ree ( te ) ; 

return 0; 



} 



change_di rectory (filename ) 
char ^filename; 

{ 

strstrip (filename) ; 

if (filename [0] == NULL) 

{ 

printf(" Present Working Directory : ") ; 

f flush (stdout ) ; 

/* The following line is system dependent */ 
system ( ”pwd" ) ; 

printf(" Enter New Directory : "); 

gets (filename ) ; 
strstrip ( filename ) ; 
if (filename [0] == NULL) return; 

) 

if (chdir (filename ) != 0) 

printf(” *** ERROR : change directory unsuccessf ul\n\n" ) ; 

) 
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/* gauss_eliminate.c */ 

/* Norbert H. Doerry 

14 February 1989 

This routine solves a general system of linear equations using 
Gaussian Elimination with partial pivoting. The function returns 
a value of 0 if all went well, and a value of 1 if the matrix 
is singular 

14 Feb modifications: 

The a matrix is no longer preserved, neither is the c matrix 



*/ 

tinclude <stdio.h> 
#def ine DEBUG 0 



#define aa a 
#define cc c 

gauss_eliminate (n, a, c, x) 

int n; /* The dimension of the system */ 

double *a; /* input matrix that is dimensioned n by n */ 

double *c; /* The right hand vector dimensioned n */ 

double *x; /* The solution to the system of linear equations */ 

{ 

char *calloc ( ) ; 
double pivot, temp; 
int i , j , k , pvt ; 

/* print out the matrix if DEBUG is set */ 

for (k = 0 ; k < n && DEBUG ; printf(" : %1 0 . 4f \n" , c ( k+ + ] ) ) 

for (j = 0; j < n ; j++) 

print f ( " %3 . Of " , a [ j *n + k] ) ; 

if (DEBUG) print f ( " \n" ) ; 

/* the input arrays are not preserved */ 

/* print out the matrix if DEBUG is set */ 

for (k = 0 ; k < n && DEBUG ; printf(” : % 10 . 4 f \n" , cc [k++] ) ) 

for (j = 0; j < n ; j++) 

print f ( " %3 . Of " , aa [ j *n + k] ) ; 

if (DEBUG) printf ( " \n" ) ; 

/* tr iangularize matrix */ 

for (i = 0 ; i < n ; i++) 

{ 
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/* find pivot */ 
pvt = i ; 

pivot = aa[i + i*n]*aa[i -I- i*n] ; 

for (j = i+1 ; j < n ; j++) 

{ 

if (DEBUG) pr intf ( ” %7 . 4 f :: %7 . 4 f \n" , pivot , aa [ j + i*n] *aa [ j +i*n] ) 
if (pivot < aa [ j + i *n] *aa [ j + i*n] ) 

{ 

pivot = aa [ j + i*n] * aa [ j +i*n] ; 
pvt = j; 

) 

} 



pivot = aa[pvt + i*n] ; 

/* se e if singular matrix */ 



if (pivot == 0) 
return 1; 



/* switch rows if necessary */ 



if (i != pvt) 

{ 

for (j = i ; j < n ; j++) 

{ 

temp = aa[i + j*n]; 

aa [ i + j*n] = aa[pvt + j*n] / pivot; /* make pivot 1 
aafpvt + j*n] = temp; 



temp = cc [ i] ; 

cc[i] = cc [pvt] / pivot; 

cc [pvt] = temp; 

} 

else /* make pivot equal to one */ 

{ 



cc[i] /= pivot; 
for (j = i ; j < n ; j++) 

aa [ i + j*n] /= pivot; 



*/ 



/* get zeros under pivot */ 

for (j = i+1 ; j < n ; j++) 

{ 

if ((temp = aa [ j + i*n] ) == 0) continue; 

for (k = i ; k < n ; k++) 

aa [ j + k*n] -= temp * aa[i + k*n] ; 
cc [ j] -= temp * cc[i]; 

} 



/* print out the matrix if DEBUG is set */ 
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for (k = 0 ; k < n && DEBUG ; printf(" : %10 . 4f \n", cc [k++ ] ) ) 
for (j = 0; j < n ; j++) 

printf(” %3 . Of " , aa [ j*n + k] ) ; 

if (DEBUG) printf ( " \n" ) ; 



/* aa ( ] should be triangulari zed */ 

/* print out the matrix if DEBUG is set */ 

for (i = 0 ; i < n && DEBUG ; printf (" : %10 . 4f \n" , cc [ i++ ] ) ) 
for (j = 0; j < n ; j++) 

printf(" %3 . Of " ; aa [ j*n + i] ) ; 
if (DEBUG) printf (”\n M ) ; 

/* back subsitute */ 

for (i = n-1 ; i >= 0 ; i — ) 

{ 

x [ i ] = cc ( i ] ; 

for (j = i+1 ; j <n ; j++) 

x[i] -= aa [ i + j*n] * x[j]; 

) 

return 0; 
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/* integ. c */ 

/* Norbert H. Doerry 

18 October 1988 



This routine uses trapezoidal integration to integrate a variable 
of the form 

dx/dt = f (x(t) ,y (t) , t) 

x(t) - x(t - dt) = [dt/2 ]*[f(x(t),y(t),t) + f (x(t-dt) ,y (t-dt) , t-dt) ] 

This routine returns G(x) which is : 

G (x) = x ( t ) - x ( t-dt ) - [dt/2] *[f (x(t) ,y(t) ,t) + f (x (t -dt ), y (t-dt ), t-dt ) ] 

This variable should be driven to zero with Newton Raphson in order 
to determine the proper new variable 



*/ 



double integ (x, xold, fx, 



double x; /* 
double xold; /* 
double fx; /* 
double fxold; /* 
double dt; /* 
{ 

re :urn x - xold - (dt 



fxold, dt) 

x(t) 

x ( t - dt) 

f (x (t) , y (t) , t) 

f (x (t - dt) , y (t - dt) , 

dt 

/ 2.0) * (fx + fxold) ; 



t-dt) 



*/ 

*/ 

*/ 

*/ 

*/ 



} 
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/* ioliba. c */ 

/* Norbert H. Doerry 

Last update : 25 March 1988 

This library contains a set of routines to augment the 10 functions 
in the standard 10 libraries. 

*/ 

/* rev a: 10 July 88: fixed stofa */ 

/* rev b: 11 July 88: added suctolc, slctouc, parse */ 

/* rev c: 24 Oct 88: added strsplit , strstrip, Stofa, revised getflta */ 

/* rev d: 10 Nov 88: fixed getflta */ 

/* rev e: 11 Nov 88: modified stofa, added stoda, Stoda */ 

/* rev f: 25 Mar 89: added strextract */ 

#include <stdio.h> 

#include <strings.h> 

#define MAX_EXP 38 /* maximum sized exponent for system */ 

/* stofa */ 

/* converts a string to an array of floating point numbers */ 

/* passes back the array and the number of numbers successfully */ 

/* converted. The returned value is a zero if read succe ssf ull ly */ 

/* to end of line, otherwise, returns the character that reading */ 

/* failed at. The third argument passed to the function is the */ 

/* maximum number of elements in the array */ 

/* rev a: 10 July 88: fixed bug that caused extra number to be converted */ 

/* rev e: 11 Nov 88: Added exponential notation */ 

stofa (string, fltaptr, nbrptr) 
char string [ ] ; 
float fltaptr (]; 
int *nbrptr; 

{ 

int sign; 
int index = 0; 
float power ; 
int maxlen, i; 
char ch; 
float inch; 

int exponent, exp_sign; 

maxlen = *nbrptr; 

* nbrptr = 0; 

/* strip off leading blanks and tabs */ 

while ( (ch=string [ index++ ] ) == ' ' I I ch == ' \t' ) ; 

/* convert the numbers */ 

while ( (ch >= ' O' && ch <= ' 9' ) | | ch == ' . ' I I ch == ' +' I! ch == ' 
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|| ch == ' , ' II ch ' | | ch = ' : ' | | ch == ' e' | | ch == ' E' ) 

{ 

sign = 1; /* default is positive */ 

power = 10.0; 
exponent = 0; 
exp_sign = 1; 

if ( ch == ' - ' || ch == ' + ' ) 

{ 

sign = (ch =='-') ? -1 : 1; 

ch = string [ index++ ) ; 

} 

f ltaptr ( *nbrptr] = 0; /* initialize value */ 
while (ch >= 'O' && ch <= '9') 

{ 

f ltaptr [ *nbrptr] *» 10.0; 
f ltaptr [ *nbrptr] += (float) (ch - ' 0' ) ; 
ch = string [ index++] ; 

} 

if (ch =='.') /* check for decimal point */ 

while ( (ch = string ( index++ ] ) >= '0' && ch <= '9') 

{ 

f ltaptr [ *nbrptr ] += (float) (ch - '0') / power; 

power *= 10.0; 

) 

else if (ch == '-') /* check for ft-in entry */ 

{ 

if ( (ch = string [ index-f + ] ) >= 'O' && ch <= '9') 

{ 

inch = ch - 'O'; 

/* see if 11 or 12 inches */ 

if (inch == 1 || inch == 0) 

if ( (ch = string ( index++] ) == '0' || ch == '1') 

( 

inch *= 10.0; 

inch += (float) (ch - '0'); 

} 

else 

index — ; 



power = 10.0; 

if ((ch = string [ index++] ) == '.') /* ft-decimal inch */ 

{ 

while ( (ch = string ( index++] ) >= '0' && ch <= '9') 

{ 

inch += (float) (ch - '0') / power; 

power *= 10; 

} 
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else if (ch == /* f t-inch-eighth */ 

< 

if ( (ch = string [ index++] ) >= 'O' && ch <= '7 

{ 

inch += (float) (ch - '0') / 8.0; 
if ( (ch = string [ index++] ) == '.') 

while ( (ch = string ( index+t ) ) >= '0' && 

ch <= ' 9' ) 

{ 

inch += (float) (ch - '0') / (8.0 * 

power *= 10.0; 

) 

) 

) 

f ltaptr ( *nbrptr ) += inch / 12.0; 

) 

) 



/* check for exponent */ 
if (ch == ' e' || ch == ' E' ) 



/* if the mantissa is not specified but an exponent 
set the mantissa to 1.0 */ 

if (f ltaptr ( *nbrptr ) == 0 && string [index - 2) != 'O' 

string[index - 2] !='.') 

f ltaptr [ *nbrptr] = 1.0; 

/* get the next character */ 

ch = string [index++] ; 

exp_s ign = 1; 
power = 10; 

/* get the sign of the exponent */ 

if ( ch == || ch == '+' ) 

{ 

exp_sign = (ch =='-') ? -1 : 1; 

ch = string [ index++] ; 

) 

/* get the actual exponent value */ 

exponent = 0; /* initialize value */ 

while (ch >= '0' && ch <= ; 9' ) 

< 

exponent *= 10; 
exponent += ch - 'O'; 
ch = string [ index+t] ; 

) 



power) ; 



was specified 



&& 
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} 

/* ensure exponent is not too large */ 

/* MAX_EXP is the max size of an exponent (le+MAX_EXP is legal) */ 

exponent *= exp_sign; 

while (fltaptr [ *nbrptr ) > 1.0) 

{ 

fltaptr [ *nbrptr] /= 10.0; 
exponent++; 

} 

while (fltaptr [ *nbrptr] < 0.0) 

{ 

fltaptr [ *nbrptr] *= 10.0; 
exponent--; 

) 

exp_sign = (exponent < 0) ? -1 : 1; 

exponent = (exponent <0} ? -exponent : exponent; 

if (exponent > MAX_EXP) 

{ 

exponent = MAX_EXP ; 

fltaptr [ *nbrptr] = (exp_sign — -1) ? 0.0 : 1.0; 

) 

/* multiply number by its exponent */ 

power = (exp_sign == -1) ? 0.1 : 10.0; 

for (i = 0 ; i < exponent ; i++) 

fltaptr [ *nbrptr] *= power; 

/* multiply number by its sign */ 

f It aptr { *nbrptr ] **= sign; 

( *nbrptr) ++; 

/* stop if converted maximum number of elements */ 
if (*nbrptr == maxlen) break; 

/* see if illegal character following a legal number */ 

if (ch == ' || ch == ' +' || ch == ' 8 ' | | ch — ' 9' | | ch == ' . ' ) 
break; 

/* ignore delimiting spaces */ 
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while (ch == ' ' || ch == '\t') 

ch = string [index++] ; 

/* ignore delimiting : ; , */ 

if ( ch == ' : ' || ch == ' ; ' | | ch ==' , ' ) 

while ( (ch = string ( index++] ) == ' ' | | ch -= ' \t' ) ; 

/* interpret successive : : , as zero entries in the array */ 

while ( ch == ' | | ch == ' ; ' || ch ) 

< 

if (*nbrptr < maxlen) 

{ 

f ltaptr ( *nbrptr ] = 0; 

( *nbrptr) ++; 

} 

else break; 

while ( (ch = string [ index++] ) == ' ' | | ch == ' \t' ) ; 

} 



} 

return (ch) ; 

) 

/* stoda */ 

/* converts a string to an array of double precision floating point numbers */ 



/* passes back the array and the number of numbers successfully */ 
/* converted. The returned value is a zero if read successfullly */ 
/* to end of line, otherwise, returns the character that reading */ 
/* failed at. The third argument passed to the function is the */ 
/* maximum number of elements in the array */ 



stoda (string, fltaptr, nbrptr) 
char string []; 
double f ltaptr []; 
int * nbrptr; 

{ 

int sign; 
int index =0; 
double power ; 
int maxlen, i; 
char ch; 

int exponent, exp_sign; 

maxlen = *nbrptr; 

* nbrptr = 0; 

/* strip off leading blanks and tabs */ 

while ( (ch=string (index++] ) == ' ' | | ch == ' \t' ) ; 
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/* convert the numbers */ 

while ( (ch >= ' 0' && ch <= ' 9' ) | | ch == ' . ' | | ch 

I I ch == ' , ' | | ch == ' ; ' || ch == ' : ' || ch 

{ 

sign = 1; /* default is positive */ 

power = 10.0; 
exponent = 0; 
exp_sign = 1; 

if ( ch == ' -' M ch == ' +' ) 

{ 

sign = (ch == ' ) ? -1 : 1; 

ch = string [ index++] ; 

} 

f ltaptr [ *nbrptr ] = 0; /* initialize value */ 
while (ch >= '0' && ch <= '9') 

{ 

f ltaptr [ *nbrptr] *= 10.0; 
f ltaptr [ *nbrptr] += (float) (ch - '0'); 
ch = string [ index++] ; 

} 

if (ch == 9 .') /* check for decimal point */ 

while ( (ch = string [ index++] ) >= 'O' && ch <= '9') 

{ 

f ltaptr [ *nbrptr ] += (float) (ch - '0') / power; 

power *= 10.0; 

} 

/* check for exponent */ 

if (ch == ' e' | | ch == 'E' ) 

{ 

/* if the mantissa is not specified but an exponent was specified 
set the mantissa to 1.0 */ 

if (f ltaptr [ *nbrptr] == 0 && string[index - 2) != '0' && 

string[index - 2) !='.') 

f ltaptr [ *nbrptr] = 1.0; 

/* get the next character */ 

ch = string [index++] ; 

exp_sign = 1; 
power = 10; 

/* get the sign of the exponent */ 

if ( ch == ' -' | | ch == ' +' ) 

{ 



== ' +' | | ch == ' -' 

== ' e' | | ch == ' E' ) 
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exp_sign = (ch =='-') ? -1 : 1 ; 

ch = string [ index++ ] ; 

} 

/* get the actual exponent value */ 

exponent = 0; /* initialize value */ 

while (ch >= 'O' && ch <= ' 9' ) 

{ 

exponent *= 10; 
exponent += ch - 'O'; 
ch = string ( index++] ; 

) 

) 



/* ensure exponent is not too large */ 

/* MAX_EXP is the max size of an exponent (le+MAX__EXP is legal)*/ 

exponent *= exp sign; 

while (fltaptr [ *nbrptr] > 1.0) 

{ 

fltaptr ( *nbrptr) /= 10.0; 
exponent++; 

} 

while (fltaptr [ *nbrptr) < 0.0) 

{ 

f ltaptr ( *nbrptr ] *= 10.0; 

exponent--; 

) 

exp_sign = (exponent < 0) ? -1 : 1; 

exponent — (exponent < 0) ? - exponent : exponent; 

if (exponent > MAX_EXP) 

{ 

exponent = MAX_EXP; 

fltaptr ( *nbrptr] = (exp_sign == -1) ? 0.0 : 1.0; 

} 

/* multiply number by its exponent */ 

power = (exp_sign == -1) ? 0.1 : 10.0; 

for (i = 0 ; i < exponent ; i++) 
fltaptr [ *nbrptr] *= power; 

/* multiply number by its sign */ 

fltaptr ( *nbrptr] *= sign; 

( *nbrptr ) ++ ; 
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/* stop if converted maximum number of elements */ 
if (*nbrptr == maxlen) break; 

/* see if illegal character following a legal number */ 

if (ch == ' || ch == ' + ' || ch == ' . ' ) 

break ; 

/* ignore delimiting spaces */ 

while (ch -= ' ' | | ch == ' \t ' ) 

ch = string [ index++ ] ; 

/* ignore delimiting : ; , 

if ( ch == ' ; ' | | ch == ' ; ' | | ch ' ) 

while ( (ch = string [ index++] ) == ' ' || ch == ' \t ' ) ; 

/* interpret successive : : , as zero entries in the array */ 

while ( ch = ' : ' | | ch == ' ; # || ch ) 

{ 

if (*nbrptr < maxlen) 

{ 

f ltaptr [ *nbrptr ] = 0; 

( *nbrptr ) ++; 

} 

else break; 

while ( (ch = string [ index+ + ] ) == ' ' I I ch == ' \t' ) ; 

} 



} 

return (ch) ; 

} 

/* Stofa */ 

/* NHD 

Stofa is like stofa except that maxnum is specified as a separate 
argument from nbrptr 

V 

Stofa (inline, f ltaptr, nbrptr, maxnum) 

char * inline; 

float *f ltaptr; 

int * nbrptr , maxnum; 

( 

* nbrptr = maxnum; 

return stofa (inline, f ltaptr , nbrptr) ; 

} 

/* Stoda */ 

/* NHD 

Stoda is like stoda except that maxnum is specified as a separate 
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argument from nbrptr 

*/ 

Stoda (inline, f ltaptr , nbrptr, maxnum) 
char * inline; 
double *f ltaptr; 
int *nbrptr, maxnum; 

{ 

* nbrptr = maxnum; 

return stoda (inline, f ltaptr, nbrptr) ; 

} 

/* getflta */ 

/* NHD 

Get a string from stdin, and convert to an array of floating 
point numbers. Return a NULL if read to end of line, or 
return the character that the conversion failed in. 

rev c: added maxnum as an argument 

*/ 

fdefine LEN 131 

getflta (f ltaptr , nbrptr, maxnum) 

float fltaptr[]; /* floating number array */ 

int *nbrptr; /* pointer holding number of numbers converted */ 

int maxnum; /* maximum size of f ltaptr */ 

{ 

char inline [LEN]; 
gets ( inline ) ; 

return (St of a ( inline , f ltaptr , nbrptr, maxnum) ) ; 

} 

/* fgetflta */ 

/* Norbert H Doerry 
31 March 1988 

Get a string from a file, and convert it to an array 
of floating point numbers. Return a NULL if read to end of 
line, or return with the character the conversion failed. 

Returns a -1 if an EOF received. 

rev c: added maxnum as an argument 

*/ 



fgetflta ( file , f ltaptr , nbrptr, maxnum) 
FILE * f i 1 e ; 
float fltaptr[]; 
int * nbrptr , maxnum; 

{ 

char inline [LEN] ; 
int ans; 
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if (fgets (inline, LEN, file) ==NULL) 
return -1; 

ans = Stofa (inline, fltaptr, nbrptr, maxnum) ; 
if (ans == ' \n' ) ans = NULL; 
return ans; 



/* parse */ 

/* Norbert H Doerry 
11 July 1988 

Parse a string into its elements that are separated by spaces. 

maxlen is the maximum length of a parse element. 

mascnt is the maximum number of elements to parse. 

cnt is the number of elements parsed. 

array contains the parsed strings. 

rev c: also ignores tabs 

*/ 

parse (string, array, maxlen, maxcnt, cnt) 

char string []; 

char array ( ] ; 

int maxlen, maxcnt, *cnt; 

{ 

int i , j , k ; 
i = j = k = 0; 

while (string [i] != NULL && k < maxcnt) 

{ 

j = 0; 

/* strip off leading spaces and tabs */ 

while (string [i] == ' ' | | string [i] == ' \t' ) i++; 

/* move characters to array */ 

while (string[i] != ' ' && string(i] != NULL && 
string[i] != ' \t' && j < maxlen - 1) 

array [k*maxlen + j + + ] = string[i++]; 

/* terminate array element with NULL */ 

array (k*maxlen + j] = NULL; 

/* read to end of element if exceed maxlen */ 

while (string[i] != ' ' && string(i] != '\t' && string(i) != NULL) i++ 
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/* increment word counter */ 

k++; 



} 



/* suctolc */ 

/* Norbert Doerry 
11 July 1988 

This converts all the upper case characters in a string to lower case 



*/ 

suctolc (instring, outstring) 
char instring [], outstring [] ; 

{ 

int i; 

for (i = 0; instring [i] != NULL ; i++) 

{ 

if (instring[i] >= 'A' && instring[i] <= 'Z') 

outstring[i] = instring[i] - ' A ' + 'a'; 

else 

outstring(i] = instring[i]; 

} 

outstring (i] = NULL; 

) 

/* slctouc */ 

/* NHD 

This converts all the lower case characters in a string to upper case 



slctouc (instring, outstring) 
char instring [], outstring [] ; 

{ 

int i ; 

for (i = 0; instring (i] != NULL ; i++) 

{ 

if (instring[i] >= 'a' && instring[i] <= ' z 7 ) 

outstring[i] = instring[i] - 'a' + 'A'; 

else 

outstring[i] = instring [i]; 
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outstring { i ] = NULL; 

) 

/* strcmpa */ 

/* Norbert H Doerry 
11 July 1988 

This is like strcmp, except that case of letters are not considered 

*/ 

strcmpa (stringl, string2) 
char *str ingl , *string2 ; 

{ 

char *strl, *str2; 
char *malloc() ; 
int ans; 

strl = malloc ( (unsigned) strlen ( stringl ) + 1); 

str2 = malloc ( (unsigned) strlen (string2 ) + 1); 

slctouc (stringl , strl) ; 
slctouc (string2, str2) ; 
ans = strcmp ( strl , str2 ) ; 
free (strl ) ; 
free (str2 ) ; 
return ans; 



/* strncmpa */ 

/* Norbert H Doerry 
11 Juloy 1988 

This is like strncmp, except that case of letters are not considered 

*/ 

strncmpa (stringl, string2, n) 
char *stringl , *string2 ; 
int n; 

( 

char *strl,*str2; 
char *malloc(); 
int ans; 

strl = malloc ( (unsigned) strlen ( stringl) + 1); 
str2 = malloc ( (unsigned) strlen (string2) + 1); 

slctouc (stringl , str 1 ) ; 
slctouc (string2, str2) ; 
ans = strncmp (str 1 , str2 , n) ; 

free ( st rl ) ; 
free ( str2 ) ; 
return ans; 

} 



312 



ioliba . c 



/* strsplit */ 

/* This routine returns a substring of an input string. The substring 
begins after n words are encountered in the input string. It ends 
on the encounter of a new line character or the end of the input 
string. len is the maximum length of string. 

*/ 

strsplit (inline, s, n, len) 
char *inline,*s; 
int n, len; 

{ 

int i , j , k ; 
i = 0; 

while (inline [i] == ' ' ) i++; /* strip off leading blanks */ 

for (j = 0; j < n && inline [i] != NULL ; j++) /* read in n words */ 

{ 

while (inline [i) != NULL && inline [i] != ' ' && inline[i] != ' \t' 

l * strip off trailing blanks and tabs */ 

while (inline [i] == ' ' || inline [i] == '\t') i++; 

} 

k = 0; 

/* copy string */ 

while (inline [i] != NULL && inline[i] != ' \n' && k < len - 1) 

s [k++] = inline [i++]; 

/* terminate with NULL */ 

s [k] = NULL; 

/* strip off trailing blanks */ 

for (j = strlen(s) - 1 ; s[j] ==''11 s[j] == '\t' || 

s[j] == 'W ; s [ j — ] = NULL); 



} 

/* strstrip */ 

/* strstrip strips a string of leading and trailing spaces and tabs */ 

strstrip ( s) 
cha r * s ; 

{ 

int i , j ; 

/* find first none space or tab */ 



i++ 
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for ( i = 0 ; s [ i ] == ' ' || s[i] == '\t' ; i++) ; 

/* copy string */ 

for (j = 0 ; s [ i] != NULL ; s[j++) = s[i++)); 
s [ j ] = NULL; 

/* delete trailing spaces and tabs and Cr*/ 

for (j = strlen(s) - 1 ; s[j] == ' ' | | s [ j ] == ' \t ' || 

s [ j] == ' \n' ; s [ j — ] = NULL); 

} 

/* strextract */ 

/* strextract returns the nth word in a string */ 
strextract (in, out, n, len) 

char *in, *out; /* in is the input string , out is the output string */ 

int n, len; /* n is the desired word number , len is max len of out */ 

{ 

int i, j ; 

/* strip off the leading spaces and tabs */ 

for (i = 0 ; in [ i ] == ' ' | | in[i] == '\t' ; i++) ; 

/* ignore the first n-1 words */ 

for ( j = 0 ; j < n - 1 ; j++) 

{ 

while (in[i] != ' ' && in[i) != '\t' && in[i] != NULL) i++; 
while ( in [ i ] == ' ' | | in[i] == '\t') i++; 

) 



/* copy the nth word */ 

for (j = 0 ; j < len - 1 && in[i] != NULL && in[i] != ' ' && in[i] != '\t' 

&& in[i] != ' \n f ; j++ , i++) 

{ 

out [ j ] = in [ i ) ; 

} 

out [ j ] = NULL; 



) 
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/* load_device . c */ 

/* Norbert H. Doerry 

22 October 1988 

This routine loads in the device characteristics for a given number of 
devices . 



*/ 

♦include <stdio.h> 
♦include "doerry. h" 



load_device (d, n , in, typ, d_function, d_name, ndev) 

DEVICE **d; /* array of pointers to device structures */ 

int n; /* number of device structures to read in */ 

int typ; /* beginning number used for type */ 

FILE *in; /* input file stream */ 

int ( **d_function ) (); /* array of pointers to device functions */ 

char *d_name[); /* array of device names */ 

int ndev; /* total number of devices */ 

{ 

int i , j , k , ans , typa; 



ans = 0; 
typa = typ; 

/* read in data from file */ 

for (i=0 ; i < n ; typa++ , i++) 

{ 

j = read_device (d [i] , in, typa) ; 

/* see if bad data */ 

if (j == 1) 

< 

printf(" ERROR reading %d device : %s\n", typa, d [i ] ->name) ; 

ans = 1; 

) 

else if (j == 2) 

{ 

printf(" EOF reached reading %d device : %s\n", typa, d [i] ->name) 
return 2; 

} 

for (k = 0 ; strcmp (d [i] ->name, d_name [k] ) != 0 && k < ndev ; k++) ; 

if (k < ndev) /* found the name */ 

{ 

d[i]->f = d_funct ion [ k] ; /* copy the function address */ 

) 

else 
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{ 

printf(" ERROR device %s is undefined : %s\n",d 
ans = 1 / 

} 



} 



return ans; 

} 



i ] ->name ) 
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/* load_element . c */ 

/* Norbert H. Doerry 

9 November 1988 

This file contains a function for loading the element descriptions 
from an input file . The form of the element description is : 



DEVICE ELEMENT 

PARAMETER_NAME PARAMETER 

I I II 

\i 1/ \i i/ 

\ / \ / 

END 

where 

DEVICE is the name of the device type (i.e. resistor) 

ELEMENT is the specific element name (i.e. Rl) 

PARAMETER NAME is the name of the DEVICE PARAMETER (i.e. R) 
PARAMETER is the value of the Parameter (i.e. 100 ) 

additionally, an INCLUDE statement can be substituted for an 

Element Description. An INCLUDE statement has the following 
form: 

INCLUDE filename 

where ' filename 7 is another file containing element descriptions 
*** Modified 9 January *** 

changed parameter for passing stream. Now pass structure 
of STREAM_PTR instead of FILE. This improves include file 
handling . 



*/ 



/* The following structure is used to read in the elements because the 
total number of elements is not known until all the devices are read 
in . 

*/ 

#include <stdio.h> 

#include "doerry-h” 

typedef struct Element_Ptr 

{ 

ELEMENT *e; /* present element */ 

struct Element_Ptr *last; /* pointer to last structure holding element */ 

} 

ELEMENT PTR; 
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int load_element ( strml , ee , nelm, dev, ndev, err flag) 



STREAM__PTR **strml; 
ELEMENT ***ee; 
int *nelm; /* 

DEVICE **dev; /* 

int ndev; /* 

int *errflag; 



/* pointer to array of element descriptions 
number of elements read in */ 
array of device descriptions */ 
number of devices in above array */ 



{ 



ELEMENT_PTR *t emp__elmnt , *elmnt; 
ELEMENT **e; 
int i, flag, serial; 
char *calloc(); 

STREAM_PTR *temp_strm, *strm; 
char filename [MAXCHAR] ; 



*/ 



/* initialize starting structures */ 



elmnt = (ELEMENT_PTR *) calloc ( 1, sizeof (ELEMENT_PTR) ) ; 
elmnt->e = (ELEMENT *) calloc ( 1, sizeof (ELEMENT) ) ; 

elmnt->last = NULL; /* indicator that this is the first stream */ 

serial = 1; 

while (1) 

{ 

strm = *strml; 



flag = read_element (elmnt->e, strm, serial, dev, ndev) ; 
/ * see if reached EOF */ 



if (flag == 2) 

{ 

if (strm->last == NULL) /* read to the end of the first file */ 

{ 

free (strm) ; 

printf(" *** Error Line %d in file %s\n ,, / 
strm->line_nbr , strm->f ilename ) ; 
printf(” *** EOF before NETWORK statement :\n\n") ; 
*errflag = 1; 

return 1; 

) 

/* read to the end of one of the include files */ 



fclose (strm->in) ; 

/* bump back to last stream */ 



temp_stm = strm; 
strm = strm->last; 
free (temp_strm) ; 
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*strml = strm; 
continue; 



/* see if unable to find device type */ 
if (flag == -2) 



/* see if include file */ 

if (strncmpa (elmnt->e->name , " INCLUDE” , 3 ) == 0) 

{ 

ope n__in elude (strml, elmnt->e->name , errflag) ; 
continue; 

} 

/* see if end of section */ 

if (strncmpa (elmnt->e->name , "NETWORK” ,7) == 0) 

{ 

flag = 0; /* successful load */ 

break; 

} 



/* genuine bad device name */ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm-> filename) ; 

printf(” *** Unable to Interpret : %s ***\n", elmnt->e->name) 

*errflag = 1; 

continue; 



/* read in an element */ 

/* see if bad data encountered */ 

if (flag == 1) 

{ 



printf(" *** Error Line %d in file %s\n M , 
strm->line__nbr, strm->f ilename) ; 

printf( M *** Encountered Bad Data Reading Element : %s ***\n 
elmnt->e->name ) ; 

*errflag = 1; 

} 



/* see if incomplete definition of parameters */ 



load element. c 



if (flag == -1) 

{ 



printf(" *** Error Line %d in file %s\n", 
strm->line__nbr, strm->f ilename ) ; 
printf(" *** Incomplete Parameters for Element : %s ***\n 

elmnt->e->name ) ; 

*errflag = 1; 

} 

/* allocate the element structure block for the next element */ 
temp_e lmnt = elmnt; 

elmnt = (ELEMENT_PTR *) calloc ( (unsigned) 1 , sizeof (ELEMENT__PTR) ) 
elmnt->last = temp_elmnt ; 

elmnt->e - (ELEMENT *) calloc ( (unsigned) 1 , sizeof (ELEMENT) ) ; 
serial++; /* increment serial number of element */ 



} 



/* create element array */ 



serial--; /* serial is now the number of elements */ 

*nelm = serial; 

e = (ELEMENT **) calloc ( (unsigned) serial , si zeof (ELEMENT *)); 
*ee = e; 

/* create array of element pointers */ 

for (i = 0 , elmnt = elmnt->last ; elmnt ! = NULL; i++) 

{ 

e[i] = elmnt->e; 
temp_elmnt = elmnt; 
elmnt = e lmnt -> last; 
free (temp_elmnt) ; 

} 

*strml = strm; 
return 0; 
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/* load_initial . c */ 

/* Norbert H. Doerry 

20 January 1989 

The following sections comprise the initialization section 
INITIALIZE 

EXTERNAL INPUTS INITIALIZATION 
NODE VOLTAGE INITIALIZATION 

The initialization section ends when the keyword SIMULATION is reached 
INITIALIZE 

each line of the initialization is of the form: 

ELEMENT : VARIABLE VALUE 

where 'VARIABLE' can be a state or input variable, 
the section ends with the keyword ' END' 

EXTERNAL INPUTS INITIALIZATION 

each line of the external input initialization is of the form: 

ELEMENT : EXTERNAL_INPUT VALUE 

the section ends with the keyword ' END' 

NODE VOLTAGE INITIALIZATION 

each line of the node voltage initialization is of the form: 

NODE : SUBNODE VALUE 

the section ends with the keyword 'END' 

NOTE : this initialization is only necessary for Voltage Subnodes. 

If a current subnode or a reference voltage subnode is specified, 
a warning is generated. 



The initialization section ends when the keyword SIMULATION is reached 
which indicates that the the next and final section starts . 



*/ 

linclude <stdio.h> 

# include <math.h> 

# include "doerry. h" 

load_initial (strml, e, nelm, nn, nnode, inline, errflag, eof ) 
STREAM_PTR **strml; 

ELEMENT **e; 
int nelm/ 
char ^inline; 
int *errflag; 
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NODE **nn; 
int nnode; 

int eof; /* if eof = 0, then looks for ' SIMULATATION' to terminate section 
otherwise, looks for the end of the file */ 

{ 

int i, j , k, f lag; 

STREAM_PTR *temp_strm, *strm; 

char *calloc(); 

char filename [MAXCHAR] ; 

str strip ( inline) ; 

flag = 0; 

while (1) 

{ 

if (strncmpa ( inline , " INITIALIZE " , 7 ) «« 0) 

flag = read_init (strml , e, nelm, inline, errf lag) ; 

else if (strncmpa (inline, "EXTERNAL" , 7) == 0) 

flag = read_ext_init (strml , e, nelm, inline, errf lag) ; 

else if (strncmpa (inline, "NODE VOLTAGE", 7) == 0) 

flag = read_node_volt (strml , nn, nnode, inline, err flag) ; 

else if (strncmpa (inline, "SIMULATION", 7) == 0) 

{ 

return 0; /* read to end of initialization routine */ 

} 

else if (strncmpa (inline, "INCLUDE", 7) == 0) 

ope n_in elude ( strml , inline , errf lag) ; 

else if (inline (0) != '!' && inline [0] != NULL && inline(0] != '#') 

{ 

strm = *strml; 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename) ; 
printf(" *** INITIALIZE Syntax Error : \n %s\n\n" , inline) ; 
*errflag = 1; 

) 



/* see if flag is one, which signifies that other routines ran out 
of file to read */ 

if (flag != 0) return 1; 

/* read in next line */ 

strm - *strml; 

strm->line nbr += 1 ; /* increment line counter */ 
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while ( f get s ( inline, MAXCHAR, strm->in) NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in} ; 

if (strm->last == NULL) /* read back to the beginning */ 

{ 

f ree ( strm) ; 

/ * see if eof is set, if so, then done */ 
if (eof) return 0; 

/* otherwise, reading to an end of file is an error */ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename } ; 
print f ( " *** EOF Reached before SIMULATION statement \n" ) ; 

*errflag = 1; 
return 1/ 

} 

temp_strm = strm; 
strm = strm->last; 
free (temp^strm) ; 

*strml = strm; 



} 

strstrip ( inline ) ; 

} 

} 

open_include ( strml , inline , err flag) 

STREAM_PTR * * strml; 
char ^inline; 
int *errflag; 

{ 

char filename [MAXCHAR] ; 

STREAM__PTR *temp__strm, *strm; 

strm = *strml; 

/* grab filename */ 

strsplit (inline, filename, 1, MAXCHAR) ; 

/* allocate new stream pointer structure */ 



temp_stm “ strm; /* save present pointer */ 

strm = (STREAM_PTR *) calloc ( (unsigned) 1 , sizeof ( STREAM_PTR) ) ; 
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strm->last = temp_strm; 

strm->line_nbr = 0; 

strcpy ( strm->f ilename , filename) ; 

/* try to open file */ 

strm->in = f open ( filename , "r " ) ; 

/* see if unsuccessful */ 

if (strm->in == NULL) 

{ 



/* bump back to last stream */ 

temp_strm = strm; 
strm = strm->last; 
free (temp_strm) ; 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename ) ; 

printf(" *** Unable to Open Include File : %s\n" , filename ) 
*errflag = 1; 
return 1; 

} 

else 

{ 

printf(" @00 Successfully Opened Include File : %s\n M / 
filename ) ; 

} 

* strml = strm; 
return 0; 



) 

read__init (strml , e , nelm, inline , err flag) 
STREAM_PTR ** strml; 

ELEMENT **e; 
int nelm; 
char ^inline; 
int *errflag; 

{ 

STREAM_PTR *strm, *temp_strm; 
char line [MAXCHAR] ; 
char e__name [MAXCHAR] ; 
char v_name [MAXCHAR] ; 
int i/ j,k r ncnt; 
double value; 

while (1 ) 

{ 
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/* read in next line */ 
strm = *strml; 

strm->line_nbr += 1; /* increment line counter */ 

while (fgets (inline, MAXCHAR, strm->in) == NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in) ; 

if (strm->last == NULL) /* read back to the beginning */ 

{ 

free (strm) ; 

printf (” *** Error Line %d in file %s\n”, 
strm->line_nbr, strm->f ilename) ; 
printf (’’ *** EOF Reached before END statement in %s\n”, 

"INITIALIZE”) ; 

*errflag = 1; 
return 1; 

} 

t emp_st rm = strm; 
strm = strm->last; 
free (temp strm) ; 

* strml = strm; 



) 

str strip (inline ) ; 

/* see if a comment line */ 

if (inline [0] == NULL || inline [0] — ' ! ' || inline (0] == ' #' ) 

continue; 

/* see if end command */ 

if (strncmpa (inline, "END” , 3 ) == 0) 
break; 

/* see if include file */ 

if (strncmpa (inline ," INCLUDE” , 7 ) == 0) 

( 

open_include (strml, inline, errflag) ; 
continue; 

) 



/* must be an element variable initialization */ 
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/* copy element name */ 

for (i = 0 ; inline[i] ! = NULL && inline(i] != ; i++) 

e_name[i] = inline [i]; 
e_name[ij = NULL; 
str strip (e__name) ; 

/* strip off tabs and spaces */ 

for (i+ + ; inline [i] == ' ' || inline [i] == ' \t' ; i++) ; 

/* copy variable name */ 

for (j = 0 ; inlinefi] != NULL && inline(i] != ' ' && inline[i] != '\t r 

i++/ j++) 

v_name[j] = inline [i]; 
v_name[j] = NULL; 
strstrip(v_name) ; 

/* copy value */ 

for (j = 0 ; inline(i] != NULL ; i++, j++) 
line(j] = inlinefi]; 
line ( j] = NULL; 

Stoda (line, fivalue, fincnt, 1) ; 

if (ncnt == 0) /* initialize to zero */ 

value = 0.0; 

/* find the element */ 

for (i = 0 ; i < nelm && strcmp (e_name, e ( i] ->name) != 0 ; i++) ; 

if (i >= nelm) /* didn't find the element */ 

{ 

printf( M *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 
printf( M *** ELEMENT Not Found Error (%s) : \n %s\n\n", 

e_name, inline) ; 

*errflag = 1; 
continue; 

} 



/* find the state variable */ 

for (j = 0 ; j < e ( i ] **>device->nbr_states && 

strcmp (v_name, e [i] ->device->state_name ( j ] ) != 0 ; j++) ; 

if (j < e [ i ] ->device->nbr_states) 

{ 

/* initialize the state variable */ 

e [ i ] ->con . init_state ( j ] = value; 
continue; 
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} 



/* see if its an input variable */ 

for (j = 0 ; j < e [ i] ->device->nbr_inputs && 

strcmp (v_name , e [ i] ->device->input_name [ j ] ) ! * 0 ; j++) 

if (j < e [ i ] ->device->nbr_input s) 

{ 

/* initialize the input variable */ 

e [ i] ->con . init_in [ j ) = value; 
continue; 

} 



/* can't recognize the variable */ 

print f ( ” *** Error Line %d in file %s\n”, 
strm->line_nbr, strm->f ilename ) ; 
print f ( " *** VARIABLE Not Found Error (%s) : \n %s\n\n", 

v_name , inline) ; 

* errf lag = 1; 



} 

return 0; 



} 



read_ext_init (strml ,e,nelm, inline , errf lag) 
STREAM_PTR **strml; 

ELEMENT **e; 
int nelm; 
char ^inline; 
int *errflag; 

{ 

STREAM_PTR *strm, *temp_strm; 

char line [MAXCHAR] ; 

char e^name [MAXCHAR] ; 

char v_name [MAXCHAR) ; 

int i, j , k, ncnt; 

double value; 

while ( 1 ) 

{ 



/* read in next line */ 
strm = *strml; 

strm->line nbr += 1 ; /* increment line counter */ 
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while ( f gets (inline, MAXCHAR, strm->in) == NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in) ; 

if (strm->last == NULL) /* read back to the beginning */ 

{ 

free (strm) ; 

printf( M *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename ) ; 
printf(" *** EOF Reached before END statement in %s\n", 
"INITIALIZE”) ; 

*errflag = 1; 
return 1; 

} 

temp_strm = strm; 
strm = strm->last; 
free ( tempos trm) ; 

*strml = strm; 



) 

str strip ( inline ) ; 

/* see if a comment */ 

if (inline [0] == NULL || inline [0] == ' ! ' || inline (0] == ' #' ) 

continue ; 

/* see if end command */ 

if (strcmpa (inline, "END") == 0) 
break; 

/* see if include file */ 

if (strcmpa (inline, "INCLUDE") == 0) 

{ 

open_include ( strml , inline , err flag) ; 
continue; 

} 



/* must be an element variable initialization */ 

/* copy element name */ 

for (i = 0 ; inline[i] != NULL && inline[i] != ; i++) 

e_name[i] = inline [i]; 
e_name[i] = NULL; 
strstrip (e_name) ; 
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/* strip off tabs and spaces */ 

for (i++; inline (i] == ' ' || inline [i] == ' \t' ; i++) ; 

/* copy variable name */ 

for (j = 0 ; inline [i] != NULL && inline [i] != ' ' && inline (ij != ' \t' 

i++, j++) 

v_name [ j ] = inline [i]; 
v_name [ j ] = NULL; 
str strip (v_name ) ; 

/* copy value */ 

for (j = 0 ; inline [i] != NULL ; i++, j++) 

line[j) » inline [i]; 
line [ j ] = NULL; 

Stoda (line, &value, &ncnt, 1) ; 

if (ncnt == 0) /* initialize to zero */ 

value = 0.0; 

/* find the element */ 

for (i = 0 ; i < nelm && strcmp (e_name , e [ i ] ->name ) != 0 ; i++) ; 

if (i >= nelm) /* didn't find the element */ 

{ 

printf( f ' *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename ) ; 
print f ( " *** ELEMENT Not Found Error (%s) :\n %s\n\n”, 

e_name, inline) ; 

*errflag = 1; 
continue ; 

} 

/* find the external input variable */ 

for (j = 0 ; j < e [ i] ->device->nbr_ext_in && 

strcmp (v_name, e [ i] ->device->ext_in_name [ j] ) != 0 ; j++) ; 

if (j >= e [ i] ->device->nbr_ext_in) /* didn't find the external input*/ 

{ 

printf(” *** Error Line %d in file %s\n M , 
strm->line_nbr / strm->f ilenaime) ; 

printf ( " *** EXTERNAL INPUT Not Found Error (%s) : \n %s\n\n M , 

v_name, inline) ; 

*errflag = 1; 
continue; 

} 



/* initialize the state variable */ 
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e [ i ] ->con . init_ext_in [ j ] = value; 



} 

return 0; 



) 

read_node_volt ( strml , nn , nnode , inline , err flag) 
STREAM_PTR ** strml; 
char ^inline; 
int *errflag; 

NODE **nn; 
int nnode; 

{ 

STREAM_PTR *strm, *temp_strm; 

char line [MAXCHAR] ; 

char n_name [MAXCHAR] ; 

char s_name [MAXCHAR] ; 

int i,j,k,ncnt; 

double value; 

while (1) 

{ 



/* read in next line */ 
strm = * strml; 

strm->line_nbr += 1; /* increment line counter */ 

while ( fgets ( inline , MAXCHAR, strm->in) == NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in) ; 

if (strm->last == NULL) /* read back to the beginning */ 

{ 

free ( strm) ; 

print f ( 11 *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 
printf(" *** EOF Reached before END statement in %s\n", 

"INITIALIZE") ; 

*errflag = 1; 
return 1; 

) 

temp_strm = strm; 
strm = strm->last; 
free (temp_strm) ; 

* strml = strm; 
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} 

strstrip (inline) ; 

/* see if comment line */ 

if (inline [0] == NULL || inline [0] == ' ! ' || inline [0] == ' #' ) 

continue; 

/* see if end command */ 

if (strncmpa ( inline , "END" , 3 ) == 0) 
break; 

/* see if include file */ 

if (strncmpa ( inline , " INCLUDE" , 7 ) == 0) 

{ 

open_include (strml, inline, errflag) ; 
continue; 

) 



/* must be an node voltage initialization */ 

/* copy node name */ 

for (i = 0 ; inline[i] != NULL && inline[i] != ; i++) 

n_name(i] = inline [i]; 
n_name[i] = NULL; 
strstrip (n_name) ; 

/* strip off tabs and spaces */ 

for (i++; inline [i] == ' ' | | inline [i] == '\t'; i++) ; 

/* copy subnode name */ 

for (j = 0 ; inline [i] != NULL && inline[i] != ' ' && inline(i] != * \t' 
i++, j++) 

s_name(j] = inline[i]; 
s_name[j] = NULL; 
strstrip (s name); 

/* copy value */ 

for (j = 0 ; inline [ i ] != NULL ; i++, j++) 

line[j] = inline[i]; 
line ( j ] = NULL; 

Stoda (line, &value, &ncnt, 1) ; 

if (ncnt == 0) /* initialize to zero */ 

value = 0.0; 
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/* find the node*/ 

for (i = 0 ; i < nnode && strcmp (n_name , nn [ i] ->name ) != 0 ; i++) ; 

if (i >= nnode) /* didn't find the element */ 

{ 

printf( M *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename) ; 
print f ( " *** NODE Not Found Error (%s) : \n %s\n\n", 

n_name , inline) ; 

*errflag = 1; 
continue; 



/* find the subnode*/ 

for (j = 0 ; j < nn [i ] ->nbr_subnode && 

strcmp (s_name, nn [i] ->subnode [ j ] ->name) ! = 0 ; j++) ; 

if (j >= nn [i] ->nbr subnode) /* didn't find the subnode */ 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename ) ; 
printf( M *** SUBNODE Not Found Error (%s) :\n %s\n\n ,, / 

s_name, inline) ; 

*errflag = 1; 
continue ; 

} 



/* initialize the subnode */ 

nn [ i ] ->subnode [ j ] ->init_volt = value; 

/* see if current subnode */ 

if (nn [ i ] -> subnode [ j ] ->type == 1) 

{ 

print f ( M * * * WARNING Line %d in file %s\n M , 
strm->line_nbr, strm->f ilename) ; 

printf(" *** Initialization of Current Subnode Ignored :\n" ) 
printf( M %s\n\n”, inline) ; 



/* see if reference node */ 

else if (nn [ i ] ->subnode [ j ] ->ref_f lag == 1) 

{ 

print f ( M * * * WARNING Line %d in file %s\n M , 
strm->line_^nbr, strm->f ilename) ; 

printf( M *** Initialization of Reference Voltage Subnode :\n 
printf(" %s\n\n", inline) ; 

) 
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} 

return 0; 



} 
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/* load__network . c */ 

/* Norbert H. Doerry 

26 January 1989 

This file contains a function for loading the network descriptions 
from an input file. 

The network descriptions are read in until one of the following 
keywords is reached: 

INITIALIZE 

EXTERNAL (INPUTS INITIALIZATION) 

NODE VOLTAGE 
SIMULATION 

The INCLUDE keyword causes data to be taken from 
that file. 

*/ 

tinclude <stdio.h> 
tinclude "doerry. h" 



int load_network (strml, nn, nnode, e, nelm, errf lag) 

STREAM_PTR ** strml; 

NODE ***nn; /* an array of pointers to NODES */ 

int * nnode; 

ELEMENT **e; 
int nelm; 
int *errflag; 

{ 

STREAM_PTR *strm, *temp_strm; 
char *calloc(); 

int i, j , k, 1, m, mm, flag, serial, node_ctr ; 

NODE *n, *new_node; 
char filename [MAXCHAR] ; 

strm = *strml; 

n= (NODE *) calloc ( 1 , sizeof (NODE) ) ; 
n->last - NULL; 
flag = 0; 
node_ctr = 0; 

while (1) 

{ 

flag = read_network (strm, n, e, nelm, err flag) ; 

/* see if end of block */ 

if (flag == -1 && (strncmpa (n->name, "INITIALIZE", 7) == 0 | | 

strncmpa (n->name , "EXTERNAL" , 7 ) == 0 | | 
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strncmpa (n->name, "SIMULATION" , 7) == 0 || 

strncmpa (n->name, ’’NODE VOLTAGE”, 7) == 0) ) 

{ 

flag = 0; 
break; 



/* see if include file */ 

if (flag == -1 && strncmpa (n->name, ’’ INCLUDE ”, 7 ) == 0) 

{ 



/* grab filename */ 

strsplit (n->name, filename , 1 , MAXCHAR) ; 

/* allocate new stream pointer structure */ 



temp_strm = strm; /* save present pointer */ 

strm = (STREAM_PTR *) calloc ( (unsigned) 1 , sizeof ( STREAM_PTR) ) ; 

strm->last = temp_strm; 

strm->line_nbr = 0; 

strcpy (strm->f ilename, f ilencLme) ; 

/* try to open file */ 

strm->in = fopen (filename, "r”) ; 

/* see if unsuccessful */ 

if (strm->in == NULL) 

{ 



/* bump back to last stream */ 

temp_strm - strm; 
strm = strm->last; 
free (temp_strm) ; 

printf(” *** Error Line %d in file %s\n”, 
strm->line_nbr, strm->f ilename) ; 

printf(” *** Unable to Open Include File : %s\n” , filename ) 

*errflag = 1; 

} 

else 

{ 

flag = 0; 

printf(” Q0@ Successfully Opened Include File : %s\n”, 
filename) ; 

) 

continue; 
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} 

if (flag == -1) 

{ 



printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename ) ; 

printf(" *** NETWORK Syntax Error :\n %s\n\n" ( n->name) ; 
f ree (n->name) / 

*errflag = 1; 
continue; 



/* See if read to end of file, if so, pop up one include file */ 

if (flag == 2) 

{ 

if (strm->last == NULL) /* read to the end of the first file */ 

{ 



printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 

printf(" *** EOF reached in NETWORK section : \n\n" ) ; 
break; 

) 

/* read to the end of one of the include files */ 

fclose (strm->in) ; 

/* bump back to last stream */ 

temp_strm = strm; 
strm = strm->last; 
free (temp^strm) ; 

flag = 0; 
continue; 



/* allocate the new node */ 

new_node = (NODE *) calloc ( 1 , sizeof (NODE)); 

if (new_node == NULL) 

{ 

*errflag = 1; 

*strml = strm; 

printf(” *** Error Line %d in file %s\n", 
strm->line nbr, strm->f ilename) ; 
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print f ( " *** Out of MEMORY\n" ) ; 

return 1; 

} 

new_node->last = n; 
n = new_node ; 

/* increment node counter */ 
node ctr++; 



if (flag) 

{ 

*strml = strm; 

*errf lag = 1; 

/* stop doing any more work if an error has been detected */ 

if (flag == -3 | | flag == 2) 

return 1; 
else 

return 0; 

} 

/* put the NODE structures into an array of pointers */ 

*nnode = node_ctr; 

*nn = (NODE **) calloc (node^ctr + 1 , sizeof (NODE *)); 

(*nn) [node_ctr] = n; 

for (i = 0 ; i < node_ctr ; i++) 

{ 

(*nn) [node_ctr - i - 1] = n->last; 
n = n->last; 



/* check which elements are used and not used in network description */ 
/* print out those elements which are not used */ 

for (i = 0, j = 0 ; i < nelm ; i++) /* j is first time flag */ 

{ 

if (e[i]->flag == 1) continue; /* goto next element */ 

if (j “ 0) 

{ 

print f ( "\n\n *** WARNING : The following Elements are defined”) 
print f(" but not used : \n"); 

j = i; 



printf(" %s\n”,e[i]->name) ; 
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/* check to ensure that for all the elements that are used, all of their 
inputs are attached to a node. */ 

for (i =0; i < nelm ; i+ + ) /* j is first time flag */ 

{ 

if (e[i]->flag == 0) continue; /* go to next element if not used */ 

/* loop for each node variable */ 

for (k = j = 0 ; k < e ( i] ->device->nbr_inputs ; k++, j = 0) 

{ 

/* loop for each node */ 

for (1=0 ; 1 < *nnode ; 1++) 

{ 

/* loop for each subnode */ 

for (m = 0 ; m < (*nn) ( 1] ->nbr_subnode ; m++) 

{ 

/* loop for each connection in each subnode */ 

for (mm = 0 ; mm < (*nn) [1] ->subnode[m] ->nbr_connect ; mm++) 

{ 



} 



if (strcmp (e [ i] ->name , 

( *nn) ( 1] ->subnode [m] ->element (mm] ) != 0) 

continue; /* go on if element names don't match */ 

if (strcmp (e [ i] ->device->input__name [k ] , 

(*nn) (l]->subnode[m]->variable (mm] ) != 0) 

continue; /* go on if variable names don't match */ 



j++; 



} 



/* j is the number of nodes an input variable 
is attached to */ 



if (j == 0) 

{ 

printf(" *** ERROR : Input Variable not attached to a node :\n") 

printf( M *** Element : %s | | Input Variable : %s ***\n", 
e [ i] ->name , 

e ( i] ->device->input_name (k] ) ; 

*errflag = 1; 

} 

else if (j != 1) 

{ 

printf(" *** ERROR : Input Variable attached to %d nodes :\n", 

j) ; 

printf ( M *** Element : %s || Input Variable : %s ***\n", 

e [ i] ->name , 
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e [ i) ->device->input_name [k] ) ; 
*errf lag = 1; 

} 



} 



} 

* strml = strm; 
return flag; 

} 
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/* load_simulation . c */ 

/* Norbert H. Doerry 

27 January 1989 

This routine loads in all the information required to run the simulation 
of the program. The Display section lists all the external output 
variables that may be printed out. 

TIME_STEP command sets the time step increment. 

TMIN command sets the starting time of the simulation. 

TMAX command sets the ending time of the simulation. 

DELTA is the fractional part of a variable that is used in calculating 
the jacobian. 

DELTA_MIN is the minimum change in a variable for calculating the 
jacobian in case the variable is very small. 

PRINT_STEP sets the time increment for printing the values of the 
external variables. 

MAX_ITERATION is the maximum number of iterations of the Newton-Raphson 



CONVERGE is the maximum mean square error of the implicit vector that 
is allowed for a balanced solution. 

The Reference Section sets the voltage and current nodes and subnodes 
that are to be used as references. The reference voltage node is 
always set equal to specified voltage (default is zero volts) . 

The reference current node is not used to create a current law equation 
(This prevents a singular matrix) 

The External Input Command specifies the values of different 
external inputs at different times. 

The format is: 

SIMULATION 



method used before a failure to converge error is generated 



DISPLAY 

ELEMENT : EXTERNAL OUTPUT VARIABLE 



I I 



\l 1/ 
\/ 
END 



Ml/ 

\/ 



TIME STEP 



VALUE 



TMIN 

TMAX 



VALUE 

VALUE 



PRINT STEP 



VALUE 



DELTA 



VALUE 
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DELTA_ 


_MIN 


VALUE 


REFERENCE 




V : 


NODE 


: SUBNODE VALUE 


I : 


NODE 


: SUBNODE 


END 







MAX_ITERAT ION VALUE 
CONVERGE VALUE 



EXTERNAL INPUTS 



ELEMENT : 


: EXTERN AL_INPUT_VARI ABLE 


VALUE 


TIME 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


\l 1/ 


\ll/ 


Ml/ 


Ml/ 


\/ 

END 


\/ 


\/ 


\/ 



*/ 

tinclude <stdio.h> 
tinclude <math.h> 

#include "doerry.h" 

# define DEBUG 0 

load_simulation (strml, e, nelm, nn, nnode , q, nbrq, simulate , pv, err flag) 

STREAM PTR **strml; /* pointer to pointer of current stream structure */ 



ELEMENT **e; /* array of pointers to element structures */ 
int nelm; /* number of elements in element array */ 
NODE **nn; /* array of pointers to node structures */ 
int nnode; /* number of elements in node array */ 
QUEUE ***q; /* pointer to an array of pointers to queue structures */ 



int *nbrq; /* number of elements in array of pointers to queue structures */ 

SIMULATE ^simulate; /* structure for simulation commands */ 

PRINT_VAR *pv;/* pointer to first PRINT_VAR structure */ 

int *errflag; /* error flag, if = 1, cannot run simulation */ 

{ 

int i, j, j j, k, flag; 

STREAM_PTR *t emp__strm, *strm; 

char *calloc(); 

char inline [MAXCHAR] ; 

QUEUE **qq, *q_temp; 
double temp; 

qq = (QUEUE **) calloc(l, sizeof (QUEUE *)); 

*qq = (QUEUE *) calloc(l, sizeof (QUEUE )); 

(*qq)->last = NULL; /* signal that this is first queue */ 

33 = i ; 

flag = 0; /* flag for ran out of file too soon */ 

while ( j j ) 
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/* read in next line */ 
strm = *strml; 

strm->line_nbr += 1; /* increment line counter */ 

while ( f gets ( inline , MAXCHAR, strm->in) == NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in) ; 

if (strm->last == NULL) /* read back to the beginning, we are done */ 

{ 

free ( strm) ; 

jj - 0; 

break; 

} 

temp^strm = strm; 
strm = strm->last; 
free (temp_strm) ; 

*strml = strm; 



} 



if (jj == 0) break; /* exit loop if done */ 

str strip ( inline ) ; 

/* see if line is a comment */ 

if (inline ( 0 ) == ' ! ' || inline[0] == '#' || inline[0] == NULL) 

continue; 

/* see if a valid command */ 

if (strncmpa ( inline , ’’DISPLAY” , 7 ) == 0) 

flag = read_display (strml , e , nelm, nn, nnode, pv, errf lag) ; 

else if (strncmpa (inline, "TIME_STEP”, 7) == 0) 

read^value (strml , & ( simulate->dt ) , inline, errflag) ; 

else if ( strncmpa (inline , ”TMIN" , 4 ) == 0) 

read_value ( strml , & ( simulate->tmin ) , inline , errf lag) ; 

else if (strncmpa (inline, ”TMAX" , 4 ) == 0) 

read_value (strml, & ( simulate ->tmax) , inline, errflag) ; 

else if (strncmpa (inline, ”PRINT_STEP ’’ , 7 ) == 0) 

read_value (strml, & ( simulate->pr int_dt ) , inline, errflag) ; 
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else if ( strncmpa (inline, M DELTA_MIN M , 8) == 0) 

read_value (strml, & ( simulate->delta_min) , inline, errflag) ; 

else if (strncmpa (inline, "DELTA" , 4 ) == 0) 

read__value (strml, & ( simulate->delta) , inline, errflag) ; 

else if (strncmpa (inline, "CONVERGE" , 7 ) == 0) 

read__value (strml, & (simulate-> converge) , inline, errflag) ; 

else if (strncmpa (inline, "MAX_ITERATI ON” , 7) == 0) 

{ 

read_value (strml, &temp, inline, errflag) ; 
simulate->max_iteration = (int) temp; 

) 

else if (strncmpa (inline, "REFERENCE" , 7) == 0) 

flag = read_ref erence (strml , simulate, nn, nnode, errflag) ; 

else if (strncmpa (inline, "EXTERNAL INPUTS", 7) == 0) 
flag = read__external (strml, qq, e, nelm, errflag) ; 

else if (strncmpa (inline, "INCLUDE" , 7) == 0) 

open_include (strml, inline, errflag) ; 

if (flag) return 1; /* ran out of file too soon */ 



} 



/* find out how many queue structures we have */ 
q_t emp = *qq ; 

for (i = 0 ; q_t emp -> last != NULL ; q_t emp = q_t emp -> last , i++) 

*nbrq = i; 

if (i == 0) return 0; /* return if no queue structures */ 

/* allocate array for the queue structures */ 

*q = (QUEUE **) calloc (i, sizeof (QUEUE *)); 

/* see if out of memory */ 

if (*q == NULL) 

{ 

printf ( " *** OUT of MEMORY ERROR ***\n"); 

*errflag = 1; 
return 1; 

} 



/* store pointers in array */ 
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for (q_temp = *qq , i = 0 ; 
q_temp->last != NULL ; 
q_temp = q_temp->last , i++) 

(*q) [i] = q_temp->last ; 

/* sort array by time (This is a bubble sort) */ 



flag = 1/ 

while (flag == 1) 

{ 

flag = 0; 

for (i = 1 ; i < *nbrq ; i++) 

{ 

if ( ( * q) [i]->time >= (*q) [i-l]->time ) 

continue; /* in proper order */ 

/* must switch two entries around */ 



q__temp = (*q) [i] ; 

(*q> [i] = ( *q) [i-1] ; 

( *q) [i“l] = q_t emp ; 

/* set flag to 1 to continue checking */ 



flag = 1; 

) 

) 

/* 

if (DEBUG) 

< 



} 



for (i = 0 ; i < *nbrq ; i++) 

printf("elm = %d , var = %d , val = 
( * q) [i]->var, (*q) [i]->value 



%f , time = %f\n", (*q) [i]->elm, 
, ( *q) [i] ->time ) ; 



*/ 

return 0; 



) 



read_value (strml, val, inline, err flag) 

STREAM_PTR ** strml; 

double *val; 

char ^inline; 

int *errflag; 

{ 

STREAM_PTR *strm; 
char line [MAXCHAR] ; 
int ncnt, i; 
double value; 

strm = *strml; 
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/* strip off the command */ 

str split ( inline , line, 1 , MAXCHAR) ; 

/* strip line */ 

strstrip ( line ) ; 

/* convert the number */ 

Stoda (line, & value , &ncnt , 1 ) ; 

/* set the initialization value */ 

if (value >= 0 && ncnt == 1) 

*val = value; 

else 

( 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename ) ; 
printf ( ” *** SYNTAX ERROR: \n %s\n\n" , inline) ; 

*errflag = 1; 

} 



/* print results if debug */ 
if (DEBUG) 

printf ( "inline = %s : line = %s : value = %f \n" , inline, line , value); 



} 



read_display (strml, e, nelm, nn, nnode, pv, errf lag) 

STREAM_PTR **strml; /* pointer to pointer of current stream structure */ 



ELEMENT **e; /* array of pointers to element structures */ 
int nelm; /* number of elements in element array */ 
NODE **nn; /* node array */ 
int nnode; /* number of elements in node array */ 
PRINT_VAR *pv;/* pointer to first PRINT_VAR structure in chain */ 
int * errf lag; /* error flag, if = 1, cannot run simulation */ 



{ 

int i, j , k, f lag; 

STREAM_PTR *temp_strm, *strm; 
char *calloc(); 

char v_name (MAXCHAR] , e_name (MAXCHAR] ; 
char inline [MAXCHAR] ; 

PRINT_VAR *temp; 

while ( 1 ) 

{ 
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/* read in next line */ 
strm = *strml; 

strm->line_nbr +— 1 ; /* increment line counter */ 

while ( f gets ( inline , MAXCHAR, strm->in) NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in) ; 

if (strm->last — NULL) /* read back to the beginning */ 

{ 

free (strm) ; 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename ) ; 
print f(” *** EOF reached in DISPLAY :\n %s\n\n" , inline ) ; 

*errflag = 1; 



return 1; 

} 

tempest rm = strm/ 
strm = strm->last; 
free (temp_strm) ; 

*strml = strm; 



} 

strstrip ( inline ) ; 

/* see if line is a comment */ 

if (inline[0] == ' ! ' || inline[0] == '#' || inline[0] == NULL) 

continue / 

/* see if done */ 

if (strncmpa (inline , ’’END" , 3 ) == 0) 
return 0; 

/* see if include file */ 

else if (strncmpa (inline, ’’INCLUDE”, 7) == 0) 
ope n_in elude (strml, inline, errflag) ; 

/* must be an element variable descripton */ 

/* copy element name */ 
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for (i = 0 ; inline [i] != NULL && inline [i] != ' ; i++) 

e_name[i] = inline [i]; 
e__name[i] = NULL; 
strstrip (e_name) ; 

/* strip off tabs and spaces */ 

for (i++; inline[i] == ' ' || inlinefi] — '\t'; i++) ; 

/* copy variable name */ 

for (j = 0 ; inline [i] != NULL && inline [i] !=''&& inline [i] != ' \t # 

i++, j++) 

v^name [ j] = inline [i]; 
v_name[j] = NULL; 
strstrip (v_name) ; 

/* find the element */ 

for (i = 0 ; i < nelm && strcmp (e_name, e [i] ->name) != 0 ; i++) ; 

/* found the element */ 

if (i < nelm) 

{ 



/* find the external output variable */ 

for (j = 0 ; j < e [ i] ->device->nbr_ext_out && 

strcmp (v_name, e [i] ->device->ext_out_name [ j ] ) !« 0 ; j++) ; 

if (j < e [i] ->device->nbr_ext_out ) /* found external output */ 

{ 

/* allocate and insert structure */ 

for (temp = pv; temp->next != NULL ; temp = temp->next) ; 
temp->next = 

(PRINT_VAR *) calloc( (unsigned) 1 , sizeof (PRINT_VAR) ) ; 
temp = temp->next; 
temp->next = NULL; 

/* store the information */ 

temp->e = i; 
t emp->v = j; 
temp->typ = 0 ; 

continue; 

} 

/* look for external input */ 



347 



load simulation. c 



for ( j = 0 ; j < e [ i] ->de vice->nbr_ext_in && 

strcmp (v_name, e [ i] ->device->ext_in_name [ j ] ) != 0 ; j++) ; 

if (j < e [ i] ->device->nbr_ext_in) /* found external output */ 
{ 

/* allocate and insert structure */ 

for (temp = pv; temp->next != NULL ; temp = temp->next) ; 
temp->next = 

(PRINT_VAR *) calloc( (unsigned) 1 , sizeof (PRINT_VAR) ) ; 
temp = temp->next; 
temp->next = NULL; 

/* store the information */ 

temp->e = i; 
t emp->v = j; 
temp->typ = 1; 

continue ; 

} 



/* couldn't find external input or output */ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 
print f ( ” *** EXTERNAL VARIABLE Not Found Error (%s) :\n", 

v^name ) ; 

printf( M %s\n\n H , inline ) ; 

*errflag = 1; 
continue; 



} 



/* find the node */ 

for (i = 0 ; i < nnode && strcmp ( e_name , nn [ i ] ->name ) != 0 ; i++) ; 

/* found the node */ 

if (i < nnode) 

{ 

/* look for the subnode */ 

for ( j = 0 ; j < nn[i]->nbr_subnode && 

strcmp (v_name , nn [ i ] ->subnode ( j ] ->name ) != 0 ; j++) ; 

if (j < nn[i] ->nbr_subnode) /* found the subnode */ 

{ 



/* make s.ure subnode is a voltage subnode */ 
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if (nn [ i] ->subnode [ j] ->type == 1) 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 
print f(" *** SUBNODE Not of Voltage Type (%s) : \n 

v_name ) ; 

printf(" %s\n\n" , inline) ; 

*errflag = 1; 
continue; 



/* allocate and insert structure */ 

for (temp = pv; temp->next ! = NULL ; temp = temp->next) ; 
temp->next = 

(PRINT_VAR *) calloc( (unsigned) 1 , sizeof (PRINT_VAR) ) 
temp = temp->next; 
temp->next = NULL; 

/* store the information */ 

t emp- >e = i ; 
temp->v = j; 
temp->typ = 2; 

continue; 



/* couldn't find subnode*/ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr f strm->f ilename) ; 
print f ( ” *** SUBNODE Not Found Error (%s) :\n", 

v_name) ; 

printf(” %s\n\n" , inline) ; 

*errflag = 1; 
continue; 



/* didn't find the element */ 

print f ( " *** Error Line %d in file %s\n”, 
strm“>line_nbr , strm->f ilename) ; 

printf ( " *** ELEMENT / NODE Not Found Error (%s) : \n %s\n\n”, 

e^name, inline) ; 

*errflag - 1; 
continue; 

} 

} 
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re ad__ e xte r nal (strml, qq, e, nelm, errflag) 

STREAM_PTR **strml; /* pointer to pointer of current stream structure */ 



QUEUE **qq; /* pointer to pointer of current queue structure */ 
ELEMENT **e; /* array of pointers to element structures */ 
int nelm; /* number of elements in element array */ 
int *errflag; /* error flag, if = 1, cannot run simulation */ 



{ 

int i , j , k, f lag, ncnt ; 
STREAM__PTR *temp__strm, *strm; 
char *calloc(); 
char inline [MAXCHAR] ; 
char line [MAXCHAR] ; 
char e__name [MAXCHAR] ; 
char v__name [MAXCHAR] ; 
double value [2]; 

QUEUE *q^_temp; 

flag = 0; 

while (1) 

{ 



/* read in next line */ 
strm = *strml; 

strm->line_nbr += 1; /* increment line counter */ 

while ( fgets ( inline , MAXCHAR, strm->in) == NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in) ; 

if (strm->last == NULL) /* read back to the beginning. */ 

{ 

free ( strm) ; 

printf(" *** Error Line %d in file %s\n M , 
strm->line_nbr , strm->f ilename ) ; 
print f ( " *** EOF reached in EXTERNAL INPUT : \n %s\n\n", 

inline ) ; 

*errflag = 1; 

return 1 ; 

} 

temp_strm = strm; 
strm = strm->last; 
free (temp_strm) ; 

* strml = strm; 
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} 

str strip ( inline ) ; 

/* see if line is a comment */ 

if (inline [0] == ' ! # || inline [0] == '#' || inline [0] == NULL) 

continue; 

/* see if done */ 

if (strncmpa ( inline , "END" , 3 ) == 0) 
break; 

/* see if include file */ 

else if (strncmpa (inline, "INCLUDE", 7) == 0) 
open_include ( strml , inline , errf lag) ; 



/* must be an element variable descripton */ 

/* copy element name */ 

for (i = 0 ; inline [i] != NULL && inline [i] != ' ; i+ + ) 

e_name[i] = inline [i]; 
e^name [i] = NULL; 
str strip (e_name) ; 

/* strip off tabs and spaces */ 

for (i++; inline [i] == ' ' || inline [i] == ' \t' ; i++) ; 

/* copy variable name */ 

for (j = 0 ; inline [i] != NULL && inline [i] != ' ' && inline [i] != ' \t' ; 

i++, j++) 

v_name[j] = inline [i]; 
v_name [ j ) = NULL; 
str strip (v^name ) ; 

/* copy values */ 

for (j = 0 ; inline [i] != NULL ; i++, j++) 

line[j] = inline [i]; 
line [ j ] = NULL; 

Stoda (line, value, Sncnt, 2) ; 

if (ncnt == 0) /* initialize to zero */ 

value [0] = value [1] = 0.0; 
else if (ncnt == 1) 
value [ 1 ] = 0.0; 
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/* find the element */ 

for (i = 0 ; i < nelm && strcmp (e_name, e [i] ->name ) != 0 ; i++) ; 

if (i >= nelm) /* didn't find the element */ 

{ 

printf( tf *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 
printf (" *** ELEMENT Not Found Error (%s) :\n %s\n\n", 

e_name, inline) / 

*errflag = 1; 
continue; 

} 

/* find the external input variable */ 

for (j = 0 ; j < e [ i] ->device->nbr_ext_in && 

strcmp (v_name, e [ i] ->device->ext_in_name [ j ] ) != 0 ; j++) 

if (j >= e [ i] ->device->nbr_ext_in ) /* didn't find the external input */ 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename ) ; 

printf ( ” *** EXTERNAL INPUT VARIABLE Not Found Error (%s) :\n", 

v_name ) ; 

printf (" %s\n\n", inline) ; 

*errflag = 1; 
continue; 



/* store in queue */ 

(*qq)->elm = i; 

(*qq)->var = j; 

(*qq)->value = value [0]; 

(*qq)->time = value [1]; 

/* allocate new queue structure */ 

q_temp = (QUEUE *) calloc ( 1 , sizeof (QUEUE) ) ; 
q_temp->last = 

*qq = q_temp ; 



} 



} 



read_reference (strml, simulate, nn, nnode, err flag) 
STREAM_PTR ** strml; 
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SIMULATE ^simulate; 

NODE **nn; 
int nnode; 
int *errflag; 

{ 

STREAM_PTR *strm, *temp_strm; 

char inline [MAX CHAR] , line [MAX CHAR] , n_name [MAX CHAR] , s_name [MAX CHAR] ; 
int f lag, i, j, ncnt ; 
double val; 

while ( 1 ) 

{ 



/* read in next line */ 
strm = *strml; 

strm->line_nbr += 1 ; /* increment line counter */ 

while (f gets (inline , MAXCHAR, strm->in) == NULL) 

{ 

/* Read to the end of the file, time to pop up one in the include 
stack */ 

fclose (strm->in) ; 

if (strm->last == NULL) /* read back to the beginning */ 

{ 

free ( strm) ; 

printf(" *** Error Line %d in file %s\n M , 
strm->line_nbr, strm->f ilename ) ; 
print f ( " *** EOF reached in REFERENCE :\n %s\n\n ”, inline ) ; 

*errflag = 1; 



return 1; 

} 

temp_strm = strm; 
strm = strm->last; 
free (temp_strm) ; 

*strml = strm; 



} 

str strip (inline ) ; 

/* see if line is a comment */ 

if ( inline [ 0 ] == '!' II inline [0] == '#' || inlinefO] ==NULL) 

continue; 

/* see if done */ 
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if (strncmpa (inline, "END” , 3) — 0) 
return 0; 

/* see if include file */ 

else if (strncmpa (inline, "INCLUDE", 7) == 0) 
open__include (strml, inline , errf lag) ; 

/* must be the reference voltage or current node */ 

/* see if voltage node */ 
strcpy (line, inline) ; 

if (inline ( 0 ) == 'v' || inline(0] == 'V ' ) 

{ 

/* strip off v and colon */ 

for (i - 0 ; line [i] != && line[i] != NULL ; i+ + ) 

1 ine ( i ] = ' ' ; 

line ( i] = ' ' ; 

strstrip (line ) ; 

/* grap the node name */ 

for (i = 0 ; line[i] != ' && line(i] != NULL; i++) 
n_name[i] = line[i]; 
n_name(i] = NULL; 

strstrip (n name); 

/* grap the subnode name */ 

if (line ( i] != NULL) i++; 

while (linefi] == ' ' | | line(i] == '\t') i++; 

for (j = 0 ; line ( i] != NULL && line(i] !=''&& linefi) != '\t' 

; i++, j++) 

s_name[j) = linefi); 
s^name [ j] = NULL; 

strstrip (s_name) ; 

/* find the value */ 

Stoda(line+i , &val , &ncnt, 1); 

if (ncnt =— 0) val = 0; 



/* find the node and subnode */ 
for (i = 0 ; i < nnode ; i++) 
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if (strcmp (n_name , nn [ i] ->name ) == 0) break; 

if (i == nnode) /* didn't find the node */ 

{ 

printf (" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 
print f ( " *** NODE not found ERROR: \n %s\n\n", inline) ; 

*errflag = 1; 
continue; 

} 

for (j = 0 ; j < nn [i] ->nbr_subnode ; j++) 

if (strcmp (s_name, nn [ i] ->subnode [ j ] ->name) == 0) break; 

if (j == nn (i ] ->nbr_subnode) /* didn't find the subnode */ 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename) ; 
printf ( " *** SUBNODE not found ERROR : \n %s\n\n", inline) 

*errflag = 1; 
continue; 

} 

if (nn [ i] ->subnode [ j ] ->type != 0) /* Not a voltage subnode */ 

{ 

printf ( " *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f il ename) ; 
printf (" *** SUBNODE of wrong type:\n %s\n\n M , inline) ; 

*errflag = 1; 
continue; 

} 

nn [ i] ->subnode [ j ] ->ref_f lag = 1; 
nn [ i] -> subnode ( j ] ->init volt = val; 



/* see if current node */ 

else if (inline [0] == ' i' || inline [0] == 'I') 

{ 

/* strip off i and colon */ 

for (i = 0 ; line[i] != ' :' && line[i] != NULL ; i++) 

line [i] = ' ' ; 

line ( i] = ' ' ; 

strstrip (line) ; 

/* grap the node name */ 

for (i = 0 ; line[i] != ':' && line[i] != NULL; i+t) 

n_najne[i] = line[i]; 
n_name[i] = NULL; 
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strstrip (n_name ) ; 

/* grap the subnode name */ 
if (line[i] != NULL) i++; 

for (j = 0 ; line[i] != NULL ; i++, j++) 

s_name [ j] = line[i]; 
s_name[j] = NULL; 

strstrip (s_name) ; 

/* find the node and subnode */ 

for ( i = 0 ; i < nnode ; i++) 

if (strcmp (n_name , nn [ i] ->name ) == 0) break; 

if (i == nnode) /* didn't find the node */ 

{ 

printf(" *** Error Line %d in file %s\n”, 
strm->line_nbr, strm->f ilename ) ; 
printf(" *** NODE not found ERR0R:\n %s\n\n" , inline ) ; 
*errflag = 1; 
continue; 

} 

for (j = 0 ; j < nn [ i ] ->nbr_subnode ; j++) 

if (strcmp (s_name , nn [ i] ->subnode [ j ] ->name ) == 0) break; 

if (j == nn [ i ] ->nbr_subnode ) /* didn't find the subnode */ 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line__nbr , strm->f ilename) ; 
printf(" *** SUBNODE not found ERROR: \n %s\n\n” , inline ) 
*errflag = 1; 
continue; 

} 

if (nn [ i] ->subnode [ j ] ->type != 1) /* Not a current subnode */ 

{ 

printf(” *** Error Line %d in file %s\n”, 
strm->line_nbr , strm->f ilenaLme) ; 
printf(" *** SUBNODE of wrong type:\n %s\n\n” , inline ) ; 
*errflag = 1; 
continue; 

} 



nn [ i] ->subnode ( j] ->ref flag = 1; 

} 

else /* its an error */ 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename ) ; 
printf ( " *** SYNTAX ERROR : \n %s\n\n” , inline); 
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} 



*errflag = 1; 

} 



set_defaults (simulate) 

SIMULATE ^simulate; 

{ 

simulate->dt = .001; 
simulate->tmin = 0.0; 
simulate->tmax = 10.0; 
simulate->time = simulate->tmin 
simulate->max_iteration = 30; 
simulate->converge = .0000001; 
simulate->delta = .01; 
simulate->delta_min = .001; 
simulate->print_dt = 0.05; 



} 
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/* make_jacobian . c */ 
/* Norbert H. Doerry 

15 February 1989 



*/ 

/* This routine creates the jacobian matrix which gives the partial 

of each implicit variable with respect to the individual variables. 

It is created by patching together the individual jacobian submatrices 
of the different elements. 

The hard part about the construction of this matrix is determining 
which column a variable in the submatrix corresponds to. Here are the 
rules . 

If the variable is attached to a voltage subnode : 

{ 

if the variable is attached to the reference subnode, 

ignore it. (the reference subnode is identically zero) 

else 

find the element in xtab that corresponds to the voltage 
subnode. That element number is the column. 

} 

else the variable is attached to a current subnode 

{ 

if the variable is the first one of a subnode other than 
the reference subnode, 

add the negative of the jacobian element to the 
columns corresponding to the remaining variables 



else 

add the jacobian element to the colum corresponding to the 
element 

} 

*/ 

#include <stdio.h> 

# include <math.h> 
tinclude "doerry. h" 



/* note : don't need : itab, nitab, n, nnode, simulate */ 

make_jacob ( jacob, xtab, nxtab, itab, nitab, ee, nelm, n, nnode, simulate) 
double * jacob; 

XTABLE * *xtab; 

I TABLE **itab; 

int nxtab, nitab, nelm, nnode ; 

ELEMENT **ee; 
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NODE * *n; 

SIMULATE simulate; 

{ 

int i, j, k, eptr, vptr , vtyp, iptr , rows, col; 
int mult; 

/* zero out the jacobian array */ 

for (i = 0 ; i < nxtab * nitab ; i++) 
jacob[i] = 0.0; 



/* step through xtab */ 



for (i = 0 ; i < nxtab ; i++) 

{ 

for (j = 0 ; j < xtab[i]->nbr ; j++) 

{ 

eptr = xtab [i] ->e [ j] ; 
vptr = xtab [i] ->v [ j] ; 
mult = xtab [i] ->mult [ j] ; 



for ( k = 0 ; k < ee [ ept r ] ->con . nbr_implicit ; k++) 

{ 

jacob [ee [ eptr ] ->con . imp_index [k] + nitab * i] += 

ee [ eptr ] ->con . jacob_in [k + ee [eptr ] ->con . nbr_implicit * vptr] 
* mult; 

} 

} 

} 

} 
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/* penner. h */ 

/* Norbert H. Doerry 

14 March 1989 

This is an include file which tells the main program where to get 
the proper information for the devices 

*** Modified 11 April 1989 by nhd **** 

added breaker__3p 

*** Modified 15 April 1989 by nhd **** 

added synch_mach, speed_reg, volt_r eg, ind_motor , gas-turbine , source 
integrator 

*** Modified 27 April 1989 by nhd **** 
added voltameter 

*/ 



typedef int ( *FUNCTION_PTR) () ; 

tdefine NBR_DEV_FILES 2 /* number of device description files */ 

static char *device_f ile [ ] = /* names of the device description files */ 

{ 

"/mit/13 . 411/sepsip/three_phase . input ” , 

" /mit / 13.411/ sepsip/one_phase . input " 

} ; 

static int nbr_device_f ile [ ] = 

{ 

12, /* number of devices per file */ 

10 

} ; 



static char *device_name [] = /* names of devices */ 

{ 

"t_line_3p " , 

"rl_wye", 

" gen_synch_3p" , 

” switch_3p" , 

"rms" , 

”breaker_3p " , 

” sy nch_mach ” , 

" speed_reg " , 

”volt_reg", 

" ind_motor” , 

"gas_turbine" , 



3 60 



penner . h 



"voltameter " , 

"inductor " , 

"capacitor" , 

"resistor", 

"voltage_source " , 

"current_source " , 

"diode" , 

"switch", 

"pulse_ switch" , 

"source " , 

" integrator" 

} ; 

/* device functions for the above device names */ 



#def ine 


FO t_line_3p 


#def ine 


FI rl wye 


#de f ine 


F2 gen synch 3p 


#def ine 


F3 switch 3p 


#def ine 


F4 rms 


#def ine 


F4a breaker 3p 


#def ine 


F4b synch mach 


#def ine 


F4c speed reg 


#def ine 


F4d volt reg 


#def ine 


F4e ind motor 


#def ine 


F4f gas-turbine 


#def ine 


F4g volt meter 


#def ine 


F5 inductor 


#def ine 


F6 capacitor 


#def ine 


F7 resistor 


#def ine 


F8 voltage source 


#def ine 


F9 current source 


#def ine 


F10 diode 


#de fine 


Fll spst switch 


#def ine 


F12 pulse switch 


#def ine 


F13 source 


#def ine 


F14 integrator 


int FO 


(> ; 


int FI 


<> ; 


int F2 


0 ; 


int F3 


0 ; 


int F4 


0 ; 


int F4a ( ) ; 


int F4b () ; 


int F4c ( ) ; 


int F4d () ; 


int F4e () ; 


int F4f ( ) ; 


int F4g ( ) ; 


int F 5 


<> ; 


int F6 


0 ; 
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int F7 () ; 
int F8 () ; 
int F9 () ; 
int F 10 () ; 

int F 1 1 () ; 

int F 12 () ; 

int F13 (); 
int F14 () ; 



static FUNCTION_PTR dev_f nctn ( J 

{ 

F0, 

FI, 

F2, 

F 3 , 

F 4 , 

F4a , 

F4b, 

F 4c , 

F4d, 

F4e , 

F4f , 

F4g , 

F5 , 

F6, 

F7, 

F8, 

F9, 

F10 , 

Fll, 

F12, 

F13 , 

F 14 



/* addresses of device functions */ 
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/* print_network.c */ 

/* Norbert H. Doerry 

18 January 1989 

This file contains the routine needed to display the network connections 
for the program sepsip. 

*/ 

♦include <stdio.h> 

♦include <math.h> 

♦include "doerry. h" 

print_network (out , nn, nnode) 

FILE *out; 

NODE **nn; 
int nnode; 

{ 

int i , j , k, cnt ; 

char c, inline [MAXCRAR] ; 

fprintf (out, "\n\n NETWORK SUMMARY\n\n" ) ; 

cnt = 0 ; 

for (i = 0 ; i < nnode ; i++) 

{ 

fprintf (out , "\n NODE : %s\n",nn(i]->name) ; 
if (line_counter (Sent, 20, &c, out) == ' q' ) return; 

for (j = 0 ; j < nn[i]->nbr subnode ; j++) 

{ 

if (nn [ i] ->subnode [ j ] ->type == 0) 
fprintf (out, " VOLTAGE " ) ; 

else 

fprintf (out," CURRENT "); 

fprintf (out SUBNODE : %s\n ,, / nn [ i] ->subnode [ j] ->name) ; 
if (line_counter (&cnt, 20, &c, out) == ' q' ) return; 

for (k = 0 ; k < nn [ i ] ->subnode [ j ] ->nbr__connect ; k++) 

{ 

fprintf (out , " %20s :: %-s\n", 

nn [ i] ->subnode [ j ] ->element [ k] , 
nn [ i] -> subnode ( j] -> variable [k] ) ; 
if (line_counter (Sent, 20, &c, out) ~= ' q' ) return; 

} 

} 

if (out != stdout) continue; 

printf(" Enter <RETURN> to continue ... "); 

gets (inline) ; 

strstrip (inline) ; 

if (inline [0] == ' q' ) return; 

if (inline[0] == 'b') i -= 2; /* go back one node */ 
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if (i < -1) i = -1; 



} 

} 

/* line_counter */ 

/* this routine keeps track of the number of lines printed on the screen. 

After 'maxcnt' number of lines are listed, the user is prompted to 
hit a return to continue. ' rtnchar' is the first character of the 
line that the user inputs (That is a non white space ) 

*/ 

line_counter (cnt , maxcnt , rtnchar , out ) 
int *cnt, maxcnt; 
char *rtnchar; 

FILE *out ; 

{ 

char inline (MAXCHAR] ; 

*rtnchar = NULL; /* default value */ 

(*cnt) += 1; /* increment counter */ 

if (*cnt != maxcnt) 
return 0; 

(*cnt) = 0; 

if (out == stdout) return 0; /* don't prompt if not printing to screen */ 

printf( r ’ Enter <RETURN> to continue ... ”); 

gets ( inline ) ; 
strstrip ( inline ) ; 

*rtnchar = inline [0}; 
return (int) inline [0]; 
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/* read_device.c */ 
/* Norbert H. Doerry 

6 March 1989 



*/ 

/* This routine reads in all the information for a device from an input 
stream. The following commands are recognized : 

NAME name of device 

INPUTS [nbr ] 
input name 1 
input name 2 
etc 



STATES [nbr] 
state name 1 
state name 2 
etc 



IMPLICIT [nbr] 

implicit variable name 1 
implicit variable name 2 
etc 

EXTERNAL IN [nbr] 

type : extern in name 1 
type : extern in name 2 
etc 

EXTERNAL OUT [nbr] 

type : extern out name 1 
type : extern out name 2 
etc 



PARAMETERS [nbr] 
parameter name 1 
parameter name 2 
etc 

END 

This routine returns 

0 successful read of data 

1 encountered bad data, but able to recover 

2 reached EOF before END statement 



NOTE: THIS FILE MUST BE LINKED TO 



ioliba . c 
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V 

tinclude <stdio.h> 

# include "doerry.h" 

int read__device (d, in, typ) 
DEVICE *d; 

FILE *in; 
int typ; 

{ 

char inline [MAXCHAR] ; 
char command [MAXCHAR] ; 
char lines [4] [MAXCHAR] ; 
int ans , cnt , name_f lag, ncnt ; 
float flota[2]; 
int i; 

char *calloc() , *malloc() ; 

ans = 0; 
name_flag =0; 

/* initialize the d array */ 



d->type = typ; 

d->nbr_inputs = 0; 

d->nbr_states = 0; 

d->nbr_implicit = 0; 

d->nbr_ext_in = 0; 

d->nbr_ext_out = 0; 

d->nbr_param = 0; 



while (1) 

{ 

if (fgets (inline, MAXCHAR, in) — NULL) 
return 2; 

parse (inline, (char * ) lines, (int) MAXCHAR, (int) 4, Sent) ; 
if (cnt == 0) continue; /* skip blank lines */ 

if (lines [0] [0] == ' \n' ) continue; /* skip lines beginning with CR */ 

if (lines [0] [0] == ' ! ' ) continue; /* skip lines beginning with ! */ 

if (lines [0] [0] == ' # ' ) continue; /* skip lines beginning with # */ 

if (cnt > 1 && strnempa (lines [ 0 ], ’’NAME” , 3 ) == 0) 

{ 

if (name_flag == 1) free (d->name) ; 
name_f lag = 1 ; 

str split (inline, command, 1 , strlen ( inline ) ) ; 
strstrip (command) ; 

d->name = (char *) malloc ( (unsigned) strlen (command) + 1); 
strepy ( d->name , command) ; 

} 
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else if (cnt > 1 && strncmpa ( lines ( 0 ] , " INPUTS ", 3 ) == 0) 

{ 

Stofa (lines [1] , flota, &ncnt, 1) ; 

if ( (int) flota [0] > 0 && ncnt == 1) 

( 

/* see if inputs already allocated */ 

if (d->nbr_inputs > 0) 

( 

for (i = 0 ; i < d->nbr_input s ; i++) 
free ( (char *) d->input_name [ i] ) ; 
f ree ( (char *) d->input_name) ; 

} 



/* update number of inputs */ 
d->nbr_inputs = (int) flota [0]; 

/* allocate the pointer array */ 

d->input_name = (char * * ) calloc( (unsigned) d->nbr_inputs , 

sizeof (char * ) ) ; 

/* read in the input names */ 

for (i — 0 ; i < d->nbr_input s ; i+ + ) 

{ 

if (f gets (command, MAXCHAR, in) == NULL) 
return 2; 

strstrip (command) ; 

if (command [0] — = ' ! ' | | command [0] == ' #' | | 

command [0] == NULL) 

( 

i-- ; 

continue ; 

} 

d->input_name [ i ] = (char *) 

calloc ( (unsigned) strlen (command) + 1, 
sizeof (char) ) ; 

strcpy (d->input_name [ i] , command) ; 

} 



else if (cnt > 1 && strncmpa ( lines [ 0 ]," STATES ", 3 ) == 0) 

{ 

Stofa (lines [1] , flota, &ncnt, 1) ; 
if ((int) flota [0] > 0 && ncnt == 1) 

{ 
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/* see if states already allocated */ 

if (d->nbr_states > 0) 

{ 

for (i = 0 ; i < d->nbr_states ; i++) 
f ree ( (char *) d->state_name [ i] ) ; 
f ree ( (char *) d->state_name) ; 

} 



/* update number of states */ 
d->nbr_states = (int) flota(0]; 

/* allocate the pointer array */ 

d->state_name = (char **) calloc( (unsigned) d->nbr_states, 

sizeof (char *)); 



/* read in the state names */ 

for (i = 0 ; i < d->nbr_states ; i + + ) 

{ 

if (f gets (command, MAXCHAR, in) == NULL) 
return 2; 

str strip ( command) ; 



if (command [0] == ' ! ' || command [0] == '#' || 

command [0] == NULL) 

{ 

i- - ; 

continue / 



d->state_name [ i ] = calloc( (unsigned) str len ( command) + 1, 

sizeof (char) ) ; 

strcpy (d->state_name [ i] , command) ; 

} 



} 



else if (cnt > 1 && strncmpa ( lines [ 0 IMPLICIT” , 3 ) == 0) 
{ 

Stofa(lines[l] , flota, &ncnt , 1 ) ; 
if ((int) flota [0] > 0 && ncnt == 1) 

{ 

/* see if implicit already allocated */ 

if (d->nbr_implicit > 0) 

{ 

for (i = 0 ; i < d->nbr_implicit ; i++) 
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f ree ( (char *) d->implicit_name [ i ] ) ; 
f ree ( (char *) d->implicit_name ) ; 

} 

/* update number of implicit */ 
d->nbr__implicit = (int) flota(0]; 

/* allocate the pointer array */ 
d->implicit_name — 

(char **) calloc ( (unsigned) d->nbr_implicit , sizeof (char *)); 

/* read in the implicit names */ 

for (i = 0 ; i < d->nbr_implicit ; i++) 

{ 

if ( f gets (command, MAXCHAR, in) == NULL) 
return 2; 

strstrip (command) ; 

if (command [0] == ' ! ' | | command[0] == ' # ' | | 

command [0] == NULL) 

{ 

i — ; 

continue; 

} 

d->implicit___name ( i] = 

calloc( (unsigned) strlen (command) + 1, sizeof (char) ) ; 
strcpy ( d->implicit_name ( i ] , command) ; 

} 



else if (cnt > 2 && strncmpa (lines ( 0 ] , "EXTERNAL" , 3 ) == 0 
&& strncmpa ( lines [ 1 ]," INPUT” , 3 ) == 0) 

{ 

Stofa (lines [2] , flota, &ncnt, 1) ; 
if ((int) flota(0] > 0 && ncnt == 1) 

{ 

/* see if ext in already allocated */ 

if (d->nbr_ext_in > 0) 

{ 

for (i = 0 ; i < d->nbr_ext_in ; i++) 

f ree ( (char *) d->ext_in_name [ i ] ) ; 
free ( (char *) d->ext_in_name) ; 
f ree ( (char +) d->type_ext_in ) ; 

} 
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/* update number of ext_in */ 
d->nbr_ext_in = (int) flota[0]; 

/* allocate the pointer array */ 

d->ext_in_name = (char **) calloc ( (unsigned) d->nbr_ext_in 

sizeof (char * ) ) ; 

d->type_ext_in = (int *) calloc ( (unsigned) d->nbr_ext__in 

sizeof (int) ) ; 

/* read in the ext^in names */ 

for (i = 0 ; i < d->nbr_ext_in ; i++) 

{ 

if (fgets (command, MAXCHAR, in) == NULL) 
return 2; 

/* get first non space */ 
str strip (command) ; 

if (command [ 0 ] == ' ! ' \ \ command [ 0 ] == ' # ' | | 
command [0] == NULL) 

{ 

i — ; 

continue ; 



/* get type */ 

if (strncmpa (command, "BOOLEAN" , 3) == 0) 

d->type_ext_in [ i ] = BOOLEAN; 

else if (strncmpa (command, "SWITCH", 3) == 0) 

d->type_ext_in [ i] = SWITCH; 

else if (strncmpa (command, ’’INTEGER", 3) == 0) 

d->type_ext_in [ i] = INTEGER; 

else if (strncmpa (command, "FLOAT", 3) == 0) 

d->type_ext_in [ i] = FLOAT; 

else 

{ /* error reading type */ 

ans = 1; 

d->type_ext_in [ i ] = FLOAT; 

} 



/* get name */ 

strsplit (command, command, 1 , MAXCHAR) ; 
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strstrip(command) ; 

d->ext_in_name [i] = calloc ( (unsigned) strlen (command) + 1, 

sizeof (char) ) ; 

strcpy ( d->ext_in_name [ i ] , command) ; 

} 



} 

} 

else if (cnt > 2 && s trncmpa ( line s ( 0 ] , "EXTERNAL" , 3 ) == 0 
&& s trncmpa (lines [ 1 ] , "OUTPUT” , 3 ) == 0) 

{ 

Stofa (lines [2] , flota, &ncnt, 1) ; 
if ((int) flota [0] > 0 && ncnt == 1) 

{ 

/* see if ext_out already allocated */ 

if (d->nbr_ext_out > 0) 

{ 

for (i = 0 ; i < d->nbr_ext_out ; i++) 
free ( (char *) d->ext_out_name [ i] ) ; 
f ree ( (char * ) d->ext_out_name) ; 
f ree ( (char * ) d->type_ext_out) ; 

} 



/* update number of ext_out */ 
d->nbr_ext_out — (int) flota [0]; 

/* allocate the pointer array */ 
d->ext_out_name = 

(char **) calloc ( (unsigned) d->nbr_ext_out, sizeof (char *)); 
d->type_ext_out = 

(int *) calloc( (unsigned) d->nbr_ext_out, sizeof (int) ); 

/* read in the ext_out names */ 

for (i = 0 ; i < d->nbr_ext_out ; i++) 

{ 

if (fgets (command, MAX CHAP., in) == NULL) 
return 2; 

/* get first non space */ 
strstrip (command) ; 



if (command [ 0 ] 
command [ 0 ] 

{ 

i — ; 



' ! ' || command ( 0 ] 

NULL) 



' #' II 
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continue; 

} 



/* get type */ 

if ( strncmpa ( command, "BOOLEAN " , 3 ) == 0) 
d->type_ext_out [ i ] = BOOLEAN; 

else if (strncmpa (command, "SWITCH", 3) == 0) 

d->type_ext__out [i ] = SWITCH; 

else if (strncmpa (command, " INTEGER" , 3 ) == 0) 
d->type_ext__out [ i ] = INTEGER; 

else if (strncmpa (command, " FLOAT" , 3 ) == 0) 
d->type_ext_out [i ] = FLOAT; 

else 

{ /* error reading type */ 

ans = 1; 

d->type_ext__out [i ] - FLOAT; 

} 

/* get name */ 

strsplit (command, command, 1,MAXCHAR) ; 
str strip ( command) ; 

d->ext_out_name [ i ] = 

calloc( (unsigned) strlen (command) + 1, sizeof (char) ) 
strcpy (d->ext__out__name [i] , command) ; 



} 



else if (cnt > 1 && strncmpa ( lines [ 0 ], "PARAMETERS ”, 3 ) == 0) 

{ 

Stofa (lines [1] , flota, &ncnt, 1 ) ; 
if ((int) flota[0] > 0 && ncnt == 1) 

{ 

/* see if param already allocated */ 

if (d->nbr_param > 0) 

( 

for (i = 0 ; i < d->nbr_param ; i++) 

f ree ( (char *) d->param_name[i] ) ; 
f ree ( (char *) d->param_name) ; 

) 



/* update number of param */ 
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d->nbr_jpa ram = (int) flota[0]; 

/* allocate the pointer array */ 

d->param__name = (char **) calloc( (unsigned) d->nbr_param, 

sizeof (char * ) ) ; 

/* read in the param names */ 

for (i = 0 ; i < d->nbr__param ; i++) 

< 

if (f gets (command, MAXCHAR, in) == NULL) 
return 2; 

str strip (command) ; 



if (command [0] == ' ! ' | | command [0] == '#' | | 

command [0] == NULL) 

{ 

i — ; 

continue; 

) 

d->param_name [ i ] = calloc( (unsigned) str len (command) + 1, 

sizeof (char) ) ; 

strcpy (d->param_name [ i ] , command) ; 

} 



) 



} 

else if (cnt > 0 && strncmpa (lines [0] , "END" , 3) == 0) 

{ 

if (name_f lag == 0) ans = 1; 
return ans; 

) 

else 

ans =1; /* Encountered bad data */ 

} 

} 
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/* read_element . c */ 

/* Norbert H. Doerry 

25 October 1988 

This file contains a function for reading an element description 
from a file. 

The form of the device description is: 

DEVICE ELEMENT 
PARAMETER_NAME 

I I 

\l 1/ 

\ / 

END 

where 

DEVICE is the name of the device type (i.e. resistor) 
ELEMENT is the specific element name (i.e. Rl) 

PARAMETER NAME is the name of the DEVICE PARAMETER (i.e. R) 
PARAMETER is the value of the Parameter (i.e. 100 ) 



PARAMETER 



\i i/ 
\ / 



This routine returns : 

0 successful read of data 

1 encountered bad data, but able to recover 

2 encountered EOF before END Statement 

-1 incomplete definition of parameters, defaulted to zero 
-2 unable to find device type 



NOTE: This file must be linked to 

ioliba . c 



*/ 



#include <stdio.h> 

# include "doerry. h" 



int read_element (e, strm, serial, dev, ndev) 



ELEMENT *e; 
STREAM_PTR *strm; 
int serial; 

DEVICE * * dev; 
int ndev; 



/* element structure to hold data */ 
/* pointer to stream structure */ 
/* serial number of element */ 

/* array of device descriptions */ 
/* number of device descriptions */ 



FILE *in; /* input stream to read data from */ 

char inline [MAXCHAR] , line [MAXCHAR] ; 
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int i , j , k, ncnt , f lag, dp, ans; 

float f lota [2]; 

char *calloc() , *malloc() ; 

int *param_flag; 

char command [MAXCHAR] ; 

ans = 0 ; 

in = strm->in; /* set input stream */ 

flag = 0; 

while (flag == 0) 

{ 

strm->line_nbr += 1 ; /* increment line counter */ 

if (fgets (inline, MAXCHAR, in) ==NULL) 
return 2; 

/* strip inline of leading and trailing blanks */ 
strstr ip ( inline ) ; 

/* if comment or blank line, read in another line */ 

if (inline [0] == NULL || inline [0] == ' ! ' || inline [0] == ' #' ) 

continue ; 

/ * strip off the device name */ 
strextract ( inline , line , 1 , MAXCHAR) ; 

/* find which device we are talking about */ 

for (dp = 0 ; dp < ndev && strcmp (dev [dp] ->name, line) != 0 ; dp+ + ) ; 

/* see if did not find device */ 

if (dp == ndev) 

{ 

/* if didn't find device, set the element name to the 
input line for further decoding in parent routine */ 

e->name = (char * ) calloc ( (unsigned) strlen (inline ) + 1, 

sizeof (char) ) ; 

strcpy (e->name, inline) ; 
return -2; 

} 



I* done with loop */ 
flag = 1; 
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/* get name of element */ 
strextract (inline, line, 2, MAXCHAR) ; 

/* save element name */ 

e->name = (char * ) calloc ( (unsigned) strlen (line) + 1, sizeof (char) ) ; 
strcpy (e->name, line) ; 

/* set Device pointer */ 

e->device = dev [dp]; 

/* set the serial number */ 

e->serial = serial; 

/* set connection type pointer */ 

e->con . type_ext_in — dev [dp] ->type_ext_in; 
e->con . type_ext_out = dev [ dp] ->type_ext_out ; 

/* set number of elements and allocate arrays */ 

e->con.nbr_inputs — dev [ dp] ->nbr__inputs ; 
e->con.nbr_states = dev [ dp] ~>nbr_states ; 
e->con . nbr_implicit = dev [dp] ->nbr_implicit ; 
e->con . nbr_ext_in = dev [ dp] ->nbr_ext_in ; 
e->con . nbr_ext_out = dev [dp] ->nbr_ext_out; 
e->con . nbr_param = dev [ dp] ->nbr_jparam; 

if (de v [ dp] ->nbr_inputs > 0) 

{ 

e->con. in = (double *) calloc ( (unsigned) dev [dp] ->nbr inputs , 

sizeof (double) ) ; 

e->con.init_in = (double * ) calloc ( (unsigned) dev [ dp ] ->nbr_input s 

sizeof (double) ) ; 



if (dev [ dp] ->nbr_implicit > 0) 

e->con . jacob_in = (double *) calloc ( (unsigned) dev [dp] ->nbr_inputs 

dev [dp] ->nbr_implicit , 
sizeof (double) ) ; 



} 

if (dev [dp] ->nbr_states > 0) 

{ 

e->con. state = (double *) calloc ( (unsigned) dev [ dp] ->nbr_states 

sizeof (double) ) ; 

e->con.old_state = (double *) calloc ( (unsigned) dev [ dp] ->nbr_states 

sizeof (double) ) ; 

e->con. init_state = (double *) calloc ( (unsigned) devfdp] ->nbr__states 

sizeof (double) ) ; 
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} 

if (dev (dp) ->nbr_implicit > 0) 

{ 

e->con . implicit = (double *) calloc ( (unsigned) de v ( dp ] ->nbr__implicit , 

sizeof (double) ) ; 

e->con. imp_index = (int * ) calloc ( (unsigned) dev ( dp] ->nbr_implicit , 

sizeof (int) ) ; 

} 

if (dev [dp] ->nbr_ext_in > 0) 

{ 

e->con . ext_in = (double *) calloc ( (uns igned) dev [dp] ->nbr_ext_in, 

sizeof (double) ) ; 

e->con . init_ext_in = (double *) calloc ( (unsigned) dev [dp] ->nbr_ext_in , 

sizeof (double) ) ; 

} 



if (dev (dp) ->nbr_ext_out > 0) 

{ 

e->con.ext out = (double *) 



} 



calloc ( (unsigned) dev [ dp) ->nbr_ext_out , 
sizeof (double) ) ; 



if (dev (dp) ->nbr_param > 0) 

e->con.param = (double *) calloc (( unsigned ) dev [ dp ) ->nbr_param, 

sizeof (double) ) ; 



/* read in parameters */ 

/* allocate parameter flag array (used to ensure all the parameters 
are specified) */ 

if (dev (dp) ->nbr_param > 0) 

param_flag = (int *) calloc ( (unsigned) dev [ dp) ->nbr_param, sizeof ( int ) ) 

/* ensure param_f lag is initialized to zero along with parameters */ 

for (i = 0 ; i < dev [ dp ) ->nbr_param ; i++ ) 

e->con . param ( i) = param_f lag ( i) = 0; 

flag = 0; 

while (flag == 0) 

{ 



strm->line_nbr += 1; 

if (fgets (inline, MAXCHAR, in) ==NULL) 
return 2; 

/* strip inline of leading and trailing blanks */ 
strstrip (inline) ; 

/* if comment or blank line, read in another line */ 
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if (inline [0] == NULL || inline [0] == ' ! ' || inline [0] == ' #' ) 

continue ; 

/* stop if end statement */ 

slctouc (inline, command) ; 
strstrip (command) ; 

if (strcmp ( command, "END" ) == 0) /* NOTE : case insensitive */ 

{ 

flag = 1/ 
continue; 

) 

/* check param_name [ ] to find out which parameter should be read in */ 

strextract ( inline , command, 1 , MAXCHAR) ; 

for (i = 0 ; i < dev [ dp] ->nbrjparam && 

strcmp (command , dev [dp] ->param_name ( i ) ) != 0 ; i++) ; 

/* if did not find parameter, set ans = 1 (invalid data read in) */ 

if (i == dev [ dp] ->nbrjparam) 

{ 

ans = 1 ; 
continue; 

) 

/* get parameter value */ 

strextract ( inline , command, 2 , MAXCHAR) ; 

Stofa (command , flota , Sncnt , 1); 

if (ncnt == 1) 

{ 

e->con . param [ i] = flota [0]; 
param_f lag ( i ] = 1; 

) 

else 

ans =1; /* invalid data read in */ 



/* check all the parameter flags */ 

for (i = 0 ; i < dev ( dp J ->nbrjparam ; i++) 
if (param_f lag [ i] == 0) 

{ 

/* found a parameter that wasn't initialized */ 
ans = “1; /* supplied default value */ 

) 



378 



read element. c 



return ans; 



} 



379 



read network. c 



/* read_network . c */ 

/* Norbert H. Doerry 

6 December 1988 

This file contains the code for reading the network connections 
between the various elements . The form for the netork description 
is 



NODE NODE_NAME 

[r]t[n] :SUB_NAME = [val] = ELMliNAME = ELM2 : NAME = ELM3 : NAME etc. 



1 1 


1 1 


\l 1/ 


\l 1/ 


\/ 


\/ 



END 



NODE_NAME is the name of the node 

[r] is an optional character ' r ' to make the subnode a reference 
subnode . 

t is either a ' v' for voltage law node or an ' i' for a current law node 

[n] is the number of variables to be equated beginning with the specified 
one. (usually 3 for three phase) If omitted, assumed equal to 1. 

SUB_NAME is the name of the subnode 

[val] For a voltage subnode, the program tries to convert the first 

entry into a number. If successful, the value becomes the initial 
value if not a reference node, and the actual value if the node 
is a reference node. 

ELM1 is the first element name being connected 

NAME is the name of the variable being connected 



Element names can not begin with a numeral or a punctuation sign. Elements 
should not have colons or equal signs in their name. 

**** Modified 17 April 1989 ***** 

Fixed the nbr__c bug. -nhd 



*/ 

#include <stdio.h> 
tinclude <math.h> 
^include "doerry. h" 

# define DEBUG 0 



read__network (strm, node, e, nelm, errflag) 
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STREAM_PTR *strm; 

NODE *node; 

ELEMENT **e; 
int nelm; 

int *errflag; /* set to one if detect a fatal error */ 

{ 

char inline [MAXCHAR] , line [MAXCHAR] , *sline; 

FILE *in ; 

int i , ans , flag; 

char *calloc(); 

SUBNODE **s__node, *e_node; 

NODE *new_node; 

in = strm->in; 

/* initialize s_node */ 

s_node = (SUBNODE **) calloc(l, sizeof (SUBNODE *)); 

* s_node = (SUBNODE *) calloc ( 1 , sizeof (SUBNODE) ) ; 

(*s_node) ->nbr_connect = 0; 

(*s_node) ->last = NULL; /* indicator that this is the first one */ 

/* get first line */ 

ans = 0; /* flag for all loaded normally */ 

while (1) 

{ 

strm->line_nbr += 1; 

if (fgets (inline, MAXCHAR, in) ==NULL) 
return 2; 

/* strip inline of leading and trailing blanks, etc */ 
strstrip (inline ) ; 

/* if comment or blank line, read in next line */ 

if (inline [ 0 ] == NULL | | inline [0 ] == ' ! ; | | inline [ 0 ] == ' # ' ) 

continue; 

/* see if node */ 

if (strncmpa (inline , ’’NODE" , 3 ) ! = 0) 

{ 

/* if not, pass the offending line back to the main routine */ 

node->name = calloc (strlen ( inline ) + 1 , sizeof (char) ) ; 

strcpy (node->name, inline) ; 

return -1; /* not a NODE command */ 



) 
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/* Have a node, lets get its name */ 

strsplit (inline, line, 1, MAXCHAR) / 
strstrip (line ) ; 

for (i = 0 ; line[i] !=''&& line[i] != ' \t ' && line[i] != NULL ; i++) 

line [ i] = NULL; 

node->name = calloc (strlen (line) + 1, sizeof (char) ) ; 

strcpy (node->name , line) ; 

break; 

} 

/* get the node information */ 

while (1) 

{ 

strm->line_nbr += 1; 

if (f gets__multiple ( &sline , MAXCHAR, in) == NULL) 
return 2; 

/* strip sline of leading and trailing blanks, etc */ 
strstrip ( sline ) ; 

/* if comment or blank line, read in next line */ 

if (sline [0] == NULL || sline [0] == ' ! ' || sline [0] == '#') 

continue ; 

/* see if end statement */ 

if (strcmpa (sline, M END") == 0) 
break; 

/* read the sub nodes in */ 

if (flag = read_sub_node ( strm, sline , s_node , e , nelm, 1 , err flag) != 0) 

{ 

ans = 1; 

*errflag = 1; 

if (flag == -3 | | flag == -4) return flag; /* out of memory error * 

continue; 

} 

/* free sline */ 
free (sline ) ; 
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/* count the number of subnodes */ 
e_node = *s_node; 

for (i = 0 ; e_node->last != NULL ; i++ , e_node = e_node ->last ) 

node->nbr_subnode — i; 

/* allocate array */ 

node -> subnode = (SUBNODE **) calloc ( i , sizeof (SUBNODE *)); 

if (node->subnode == NULL) 
return -3; 

/* fill the array */ 

for ( ; i > 0 ; i--) 

{ 

node->subnode [i-1 ] = (*s_node) ->last; 

*s node = (*s node) ->last; 

} 

return ans; 

} 

read_sub_node (strm, inlines, s_node , e, nelm, pe , errflag) 
char *inlines; 

STREAM_PTR *strm; 

SUBNODE **s_node; 

ELEMENT **e; 
int nelm; 

int *errf lag; /* if equal to one, indicates fatal error */ 
int pe; /* print error flag : 1 yes 0 no */ 

{ 

char *inline; 

int nbr_snode , i , j , k , 1 , kk , nbr_c, ncnt ; 
char *make_str() ; 

char line [MAXCHAR] , name [MAXCHAR] ; 
float f lota [2 ] ; 

SUBNODE *t_node; /* tempory sub node */ 
char *make str () ; 
double val; 

inline = make_str (inlines) ; /* copy inlines into inline */ 

nbr_c — count_char (inline, ' = ' ) ; /* count equal signs */ 

if (DEBUG) printf(’*%s f | nbr_c — %d\n", inlines, nbr_c) ; 

if (nbr_c < 1) /* didn't get an equal sign */ 

{ 

if (pe) 

{ 
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printf(” *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename ) ; 

printf( ,? *** ' =' not found in node description ***\n %s\n", 
in lines) ; 

} 

*errflag = 1; 
return 1; 

} 

( *s_node ) ->nb reconnect = nbr__c; 

/* find type of subnode and number of subnodes */ 
strstr ip ( inline ) ; 

/* see if the subnode is a reference subnode */ 



if (inline[0] == 'r' || inline[0] == ' R' ) 

{ 

inline [ 0 ] = ' ' ; 

( *s_node) ~>ref__f lag = 1; 
strstrip ( inline ) ; 

} 

else 

( *s_node ) ->ref_flag = 0; 

/* find out if a voltage or current subnode */ 



if (inline[0] == ' v' 

{ 

inline [0] = ' ' ; 

( * s_node ) ->type = 

} 

else if (inline{0) == 

{ 

inline { 0 ] = ' 
(*s^_node) ->type — 

} 

else 



| inline [ 0 ] == r V' ) 

/* set to space */ 

0 ; 

' i’ M inline [0] == * I' ) 

/* set to space */ 

1 ; 



{ 

if (pe) 

{ 

printf( M *** Error Line %d in file %s\n", 
strm->line__nbr, strm->f ilename) ; 



printf( n *** Improper SUBNODE TYPE in node description ***\n M ) 
print f ( ” %s\n", inlines) ; 

} 

*errflag = 1; 
return 1; 



/* find number of subnodes */ 



384 



read network. c 



Stofa (inline, flota, &ncnt, 1) ; 
nbr_snode = (ncnt == 0) ? 1 : flota (0]; 

/* allocate arrays */ 



(*s 


node) ->name 


= 


(char 


*) 


calloc (MAXCHAR, sizeof (char)); 


( *s 


node) ->element 


= 


(char 


+ *) 


calloc(nbr c, sizeof 


(char 


*) ) ; 


(*s 


node) ->variable 


= 


(char 


★ * j 


calloc(nbr c, sizeof 


(char 


*) ) ; 


( *s 


node) ->elm_ptr 


= 


( int 


*) 


calloc(nbr c, sizeof 


(int 


)) ; 


(*s 


node) ->var_ptr 


— 


( int 


*) 


calloc(nbr c, sizeof 


(int 


) ) ; 


if 


({*s node) ->element 


== NULL 


|| (*s node) ->variable == 


NULL 




(*s node) ->elm_ptr 


== NULL 


|| (*s node) ->var_ptr 


== 


NULL 



(*s_node)->name == NULL) 

{ 

if (pe) 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename) ; 
print f ( " *** Out of MEMORY \n M ) ; 

) 

*errflag = 1; 
return -3; 

} 



/* get rid of number */ 

for (i = 0 ; inline [i] != NULL && inline [i] != ' ; i++) 

inline [ i] = ' ' ; 

/* ensure got to a colon */ 

if (inline [i] != ' : ' ) 

{ 

if (pe) 

{ 

printf(" *** Error Line %d in file %s\n”, 
st rm->line_nbr , strm->f ilename ) ; 

printf(" *** in node description ***\n"); 

printf(" %s\n”, inlines) ; 

) 

*errflag = 1; 
return 1; 

} 

inline [ i] = ' ' ; 

strstrip (inline ) ; /* remove leading blanks */ 

/* read in name of subnode */ 
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for (i = 0 ; inline [i] != NULL && inline [i] != '=' ; i + +) 

{ 

line[i] = inline [i]/ 
inline [ i ] = ' ' / 

} 

line [ i] = NULL; 

if (inlinefi] -= '=') inline[i] = ' ' ; 

strstrip ( line ) ; 

/* ignore everything after first space or tab and before = */ 

for ( i = 0 ; line[i] 1= ' ' && line[i] != ' \t ' && line[i] != NULL ; i++) 
(*s_node) ->name [i] = line[i]; 

( *s_node ) ->name [ i ] = NULL; 

strstrip ( inline ) ; 

/* start reading in the elements */ 

for (1=0, j=0; i< nbr_c ; i++ , j++) 

{ 

/* get the element name */ 

for (k = 0 ; inline[j] != ' && inline[j] != NULL && inline [ j] != ' 
j++,k++) 

{ 

line[k] = inline [j]; 

} 

line [k] = NULL; 
strstrip ( line ) ; 

/* see if it is possibly an ititial value */ 

if (i == 0 && ( *s_n ode) -> type == 0) 

{ 

Stoda (line, &val, &ncnt, 1) ; 

if (ncnt == 1) /* successful conversion */ 

{ 

( *s_node) ->init_volt — val; 

i--; 

nbr_c — ; /* decrement number of connections by one */ 

(*s_node) ->nbr_connect = nbr_c; /* do it for real */ 
continue ; 

} 

} 



/* allocate the string */ 

( *s_node) ->element [ i] = (char *) calloc (strlen (line) + 1 , sizeof (char ) ) 
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strcpy ( ( * s_ node ) ->eleraent [ i ] , line ) ; 

/* get the variable name */ 

if (inline[j] != ':') 

{ 

*errflag = 1; 
if (pe) 

{ 

printf(" *** Error Line %d in file %s\n", 
strm->line_nbr , strm->f ilename) ; 

printf(” *** Missing variable name for element %s ***\n %s\n 
(*s_node) ->element [i] , inlines) ; 

} 

( *s_node) ->variable [i ] = NULL; 
continue; 

} 

j + +; /* increment pointer to character in inline past colon */ 



/* copy next element/variable into line */ 

for (k =* 0 ; inline [j] != '=' && inline [j] != NULL; j++, k++) 

{ 

line(k) = inline [j]; 

} 

line [ k] = NULL; 
strstrip ( line ) ; 

/* allocate the string */ 

( *s_node ) ->variable [ i ] = (char *) calloc (strlen (line) + 1, sizeof (char) ) 

/* see if out of memory */ 

if ( (*s_node) ->variable [i] == NULL) 

{ 

*errflag = 1; 
if (pe) 

{ 



printf(" *** Error Line %d in file %s\n M , 
strm->line_nbr, strm->f ilename ) ; 
print f ( " *** Out of MEMORY ***\n M ); 

} 

return -3; 

} 



/* copy the string */ 

strcpy ( (*s__node ) ->var iable [ i ] , line) ; 
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/* find the elements in the arrays and pass pointers etc. */ 

/* find out which element we belong to */ 

for (1=0; 1 < nelm && strcmp (e [1] ->name, ( *s_node) ->element ( i] ) != 0 

1 + + ) 

if (DEBUG) printf("%s || %s\n", e ( 1] ->name, ( *s__node) ->element [ i] ) ; 

/* see if the element name wasn't found */ 

if (1 -- nelm) 

{ 

*errflag = 1; 
if (pe) 

{ 

printf(" *** Error Line %d in file %s\n", 
strnr>line_nbr, strm->f ilename) ; 
printf(" *** Can not recognize ELEMENT %s ***\n", 

( *s_node) ->element [i] ) ; 

} 

continue; 

} 



/* assign pointer */ 

(*s_node) ->elm__ptr [i] = 1; 

/* turn flag on for element */ 
e [1] ->f lag = 1; 

/* find the variable name */ 



/* look for input variables */ 

for (k = 0 ; 1 < nelm && k < e [1] ->device->nbr inputs && 

strcmp ( ( *s_node) ->variable ( i] , e ( 1 ] ->device->input_name [ k ] ) ! = 0; 

k+ + ) 

if (DEBUG) printf ( " * * * %s | | %s\n M , (*s_node) ->variable [ i] , 
e ( 1 ] ->device->input_name [ k] ) ; 

if ( 1 < nelm && k < e [ 1 ] ->device->nbr_input s ) 

{ 

(*s_node) ->var_ptr [i] = k; 
continue ; 



if (pe) 

{ 
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printf(" *** Error Line %d in file %s\n", 
strm->line_nbr, strm->f ilename) / 



printf ( 



} 



*** Variable %s not recognized for element %s ***\n 
(*s node) ->variable [i] , ( *s node) ->element [i] ) / 



*errflag = 1/ 

( *s_node ) ->var_ptr [ i) = 0; 



} 



/ * equate follow on variables with new sub_nodes */ 

strcpy (name, ( *s_node ) ->name ) ; 

for (i = 1 ; i < nbr_snode ; i++) 

{ 



/* allocate new arrays */ 

t_node = (SUBNODE *) calloc ( 1 , sizeof (SUBNODE) ) ; 

if (t^node == NULL) return -3; 

t_node->last = *s_node; 

t_node->nbr_connect = (*s_node) ->nbr_connect; 

/* allocate arrays */ 

t_node->name = (char * ) calloc (MAXCHAR, sizeof (char )) ; 

t_node->elm_ptr = (int *) calloc ( t_node->nbr_connect , 

sizeof (int ) ) ; 

t_node->var_ptr = (int *) calloc (t_node->nbr_connect, 

sizeof (int ) ) ; 

t_node->element = (char **) calloc (t_node->nbr_connect, 

sizeof (char *)); 

t_node->var iable= (char **) calloc (t_node->nbr_connect, 

sizeof (char * ) ) ; 



/* see if out of memory problems */ 

if (t_node->elm_ptr == NULL | | t_node->var_ptr == NULL | | 
t_node->element == NULL | | 

t__node->var iable == NULL | | t_node->name == NULL) return -3/ 
/* set reference flag to zero */ 
t_node->ref_f lag = 0; 

/* copy data */ 
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t_node->type = ( * s_node ) ->type ; 

strcpy (line , name) ; 

/* append an underscore followed by a ' b' or ' c' etc to 
name */ 

sprintf (t_node->name, l, %s_%c", line, ' a' + i) ; 

for (1=0 ; 1 < t_node->nb reconnect ; 1++) 

{ 

t_node->element [ 1 ] = make_str ( (*s_node) ->element ( 1 ] ) ; 

t_node->elm_ptr [ 1 ] = ( *s_node ) ->elm_jptr [ 1 ] ; 

t_node->var_ptr [ 1 ] = ( *s_node ) ->varjptr [ 1 ] + 1; 

/* see if too many points */ 

if (t_node->var jptr [ 1 ] >= 

e [ t_node->elm_ptr [1 ] ] ->devi ce ->nbr_inputs ) 
return -4 ; 

/* copy the variable name */ 

k = t_node->var_ptr [1] ; 
kk = t_node->elm_j?tr [ 1 ] ; 

t_node->var iable [ 1] = make_str ( (e [kk] ) ->device->input_ 

} 

/* update s_node */ 

*s node = t node; 



/* allocate new arrays */ 

t_node = (SUBNODE *) calloc (1, sizeof (SUBNODE) ) ; 
if (t_node =— NULL) return -3; 

t^node->last = *s node; 

*s_node = t_node; 

/* free inline */ 

free ( inline ) ; 

return 0; 



the subnode 



name ( k] ) ; 
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/* count_char returns the number of times a character occurs in a string */ 
count_char ( s , c) 
char *s , c; 

{ 

int i / j ; 

for (i = j = 0 ; s[i] != NULL ; i++) 
if (s [i] == c) j++; 

return j; 

} 

/* make str allocates a string array and copies the argument passed to it */ 
char *make_str (s) 
char *s; 

{ 

char *calloc() ; 
char *ans; 

ans = calloc (strlen (s ) + 1 , sizeof (char) ) ; 

if (ans == NULL) return NULL; /* out of memory error */ 

strcpy (ans, s) ; 

return ans; 

} 



typedef struct String 

{ 

char *s; 

struct String *next; 

} 

STRING_; 

f gets_multiple (outline, max, in) 
char **outline; 
int max; 

FILE *in; 

{ 

char *out; 

STRING_ strt, *ptr; 
char ^inline; 
int flag, len; 

ptr = &strt; 
ptr->next = NULL; 

inline = calloc ( (unsigned) max + 1 , sizeof (char) ) ; 

flag = 1; 

while (flag) 

{ 
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/* if read to EOF, send back EOF */ 

if (fgets (inline, max, in) == NULL) 

{ 

free (inline) ; 
return NULL; 

} 



strstrip ( inline ) ; 

/* see if its a comment */ 

if (inline [ 0] == ' ! ' || inline{0] == '#' |f inline[0 ] == NULL) 

continue; 

/* see if a continuation marker is present */ 
flag = 0; 

if (inline [ strlen (inline) - 1] — ' W ) 

{ 

inline ( strlen (inline) - 1] = NULL; 
flag = 1 ; 

} 

if (strcmp ( inline + strlen ( inline ) - 3 , "...") == 0) 

{ 

inline [ strlen (inline) - 3 ] = NULL; 
flag — 1 ; 

} 



/* store the string and allocate a new array */ 
ptr — > s = make^str (inline) ; 

ptr->next = (STRING_ *) calloc ( (unsigned) 1 , sizeof (STRING_) ) 
ptr = ptr->next; 
ptr->next = NULL; 



} 

for (ptr = &strt, len = 1 ; ptr->next ! = NULL ; ptr = ptr->next) 
len += strlen (ptr->s ) + 1; 

^outline = (char *) calloc ( (unsigned) len, sizeof (char)); 

(* out line) [0] = NULL; 

for (ptr = &strt ; ptr->next != NULL ; ptr = ptr~>next) 

{ 

strcat (^outline, ” "); 
s treat (* outline , ptr->s ) ; 

} 
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free ( inline ) ; 
return (^outline) [0]; 
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/* sepsip. c */ 

/* 11 November 1988 

version 1.0 27 March 1989 * * * * 

Norbert H. Doerry 

Shiboard Electrical Plant Simulation Program 



**** modified 9 April 1989 **** 

Fixed bug that caused utility line of menu to be printed twice 
**** modified 10 April 1989 **** 

Added ability to enter stdout as a filename for writing files 
from the get^f ilename function 



linclude <stdio.h> 
linclude "doerry. h" 

#include "penner.h" 

fdefine CLEARSCREEN system ( "clear " ) 
fdefine VERSION 1.0 

tdefine VERSION_DATE "27 March 1989" 

#define DIR "Is -al" 

#define CMD " /mit/nhdoerry/dif f eq/thesis/sepsip_util" 

# define DEBUG 0 

#de f ine WRITE_FILE 1 
#de f ine READ FILE 0 



main (argc, argv) 
int argc; 
char **argv; 

{ 

FILE *in; 

extern char *device_f ile [ ] ; 
extern int nbr_device_f ile [ ] ; 
extern FUNCTION_PTR dev_f nctn [ ] ; 
extern char *device_name [ ] ; 

STREAM_PTR *strm; 

DEVICE * *dev; 

ELEMENT **e; 

QUEUE * * queue ; 
char *calloc ( ) ; 

char inline [MAXCHAR] , infile [MAX CHAP, ] ; 
int i , k, typ, ndev, nelm, nqueue; 

NODE **nn; 
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int nnode , err flag; 

SIMULATE simulate; 

XTABLE **xt SU- 
ITABLE **itab; 
int nxtab,nitab; 

PRINT_VAR pv; 
int sim_flag; 

/* print Header */ 

print f ( "\n\n WELCOME TO SEPSIP\n\n" ) ; 

print f ( " Version %5.2f : Version Date %s\n\n" , VERSION, VERS ION_DATE ) 

/* initialize errflag to 0 (no errors) */ 
err flag = 0/ 

/* allocate the storage for the device descriptions */ 

for (i = nde v = 0 ; i < NBR_DEV_FILES ; i++) 
ndev += nbr_device_f ile [i ] / 

dev = (DEVICE **) cal loc ( (unsigned) ndev, sizeof (DEVICE *)); 

for (i = 0 ; i < ndev ; i++) 

dev [ i ] = (DEVICE *) calloc ( 1 , sizeof (DEVICE)); 



/* read in the device descriptions */ 

for (i = typ = 0 ; i < NBR_DEV_FILES ; i++) 

{ 

if ( (in = fopen (device_f ile [i] , ”r" ) ) == NULL) 

{ 

errflag = 1; 

printf( M *** Unable to Open Device File : %s\n" , device_f ile ( i ] ) ; 
continue ; 

} 

k = load_device (dev + typ , nbr_device_f ile ( i ] , in , typ , 

dev_fnctn , device_name , ndev) ; 

typ += nbr_device_f ile ( i) ; 

} 



/* exit program if any of the device files are not present * / 

if (errflag) 

{ 

printf( M *** Program Terminated\n\n\n " ) ; 
exit ( ) ; 

} 



/* see if there is a filename specified in argv */ 
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if (argc > 1) 

{ 

strcpy (infile , argv ( 1 ] ) ; 
strcpy ( inline , " 1 " ) ; 
s treat (inline , argv [ 1 ] ) ; 

} 

else 

inf ile [0] = NULL; 
if (infile [ 0 ] != NULL) 

errflag = load_f ile (inf ile, &e, &nelm, dev, ndev, inline , &nn, &nnode, 

&queue, &nqueue, &simulate, &xtab, &nxtab, 
&itab, &nitab, &pv) ; 

else 

errflag = 1; 

/* should have all the devices and elements read in */ 

sim_flag = 0; /* simulation has not occurred */ 

while ( 1 ) 

{ 



print f ( "\n\n SEPSIP Commands : \n"); 
if (errflag == 0 && s im_f lag == 1) 

{ 

printf (" c Continue Simulation\n " ) ; 

} 



print f ( " d 
if (errflag = 
{ 

printf ( " 

} 

printf (" f 
printf (" 1 

printf (" q 
if (errflag : 
{ 

printf ( " 

} 



Display Data\n") ; 
= 0 ) 



e Edit Simulation Paramet ers\n ” ) ; 

File Options\n"); 

Load New Input File\n") ; 

Quit\n M ) ; 

: 0 ) 

s Conduct Simulat ion\n" ) ; 



printf (" u Utilities\n " ) ; 
printf ( " Enter Command : M ) ; 



gets ( inline ) ; 
strstrip ( inline ) ; 



if (inline [0] == ' c' && errflag == 0 && sim_flag == 1) 

run_simulation (inline, e, nelm, nn, nnode, queue, n queue, xtab, nxtab, 
itab, nitab, &pv, & simulate, 1 ) ; 

else if (inline [0] == ' d' ) 

display__data (inline, dev, ndev, e, nelm, nn, nnode, queue, 
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nqueue, errflag, stdout) ; 

else if (inline [0] == ' e' && errflag == 0) 

edit_simulate (e, nelm, nn, nnode, & simulate, &pv, inline) ; 

else if (inline [0] == ' f ' ) 

f ile_options (inline, e, nelm, nn, nnode, & queue, Enqueue, & simulate, 

&pv, xtab, nxtab, itab, nitab, errflag) ; 

else if (inline [0] == ' 1' ) 

{ 

errflag = load_file (infile, &e, &nelm, dev, ndev, inline, &nn, Snnode, 

Squeue, Enqueue, ^simulate, &xtab, &nxtab, 
&itab, Snitab, &pv) ; 

sim_flag = 0; /* reset the simulation flag */ 

} 

else if (inline [0] == ' q' || inline [0] == ' Q' ) 
exit ( ) ; 

else if (inline [0] == 's' && errflag == 0) 

{ 

run simulation (inline, e, nelm, nn, nnode, queue, nqueue, xtab, nxtab, 
itab, nitab, &pv, ^simulate, 0) ; 
sim_flag =1/ /* set the simulation flag */ 

) 



else if (inline [0] == ' u' ) 

utilities (CMD, inline) ; 



} 

} 

int load__f ile (infile, ee , nelm, dev, ndev, inline, nn, nnode , q, nq, simulate , 
xtab, nxtab, itab, nitab, pv) 

char *infile; 

ELEMENT ***ee; 
int *nelm; 

DEVICE **dev; 
int ndev; 
char ^inline; 

NODE ***nn; 
int *nnode; 

QUEUE * * * q ; 
int *nq; 

SIMULATE ^simulate; 

X TABLE * * *xtab; 
int * nxtab ; 

I TABLE * * * itab; 
int *nitab; 

PRINTJ/AR *pv ; 

{ 

STREAM PTR *strm; 
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FILE *in; 

char filename [MAXCHAR] ; 
int i , errf lag, flag; 

flag = 0; 

strsplit ( inline , filename , 1 , MAXCHAR) ; /* grab the filename if specified */ 

errf lag = 1; /* ensure loop occurs at least once */ 

while (errflag != 0) 

{ 

print f ("\n\n") ; 

errflag = 0; /* reinitialize errflag */ 

if (filename [ 0 ] != NULL) 

{ 

in = fopen (filename, M r") ; 
i = ( in == NULL) ? 

get_f ilename ( inf ile , & in , READ_FILE , "SEPSIP INPUT”, 0) : 0; 

} 

else 

i = get_f ilename (infile, & in , READ_FILE , ’’SEPSIP INPUT", 0); 



if (i ! = 0) 

{ 

return flag; /* one if an error , zero otherwise */ 

} 

filename [0] = NULL; /* ensure that second time through, a file name 

is prompted for */ 

/* initialize starting structures */ 

strm = (STREAM_PTR *) calloc ( 1 , sizeof (STREAM_PTR) ) ; 
strm->in = in; 

strm->last = NULL; /* indicator that this is the first stream */ 
strcpy ( strm->f ilename , infile) ; 
strm->line nbr = 0; 



/* set defaults */ 
set_defaults (simulate) ; 
pv->next = NULL; 

i — load__element ( &strm, ee , nelm, dev, ndev, Serrf lag) ; 
if (i != 0) /* hit EOF before all data was read in */ 

{ 

flag = errflag = 1; 
fclose (strm->in) ; 
continue; 
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else 

flag = (errflag != 0) ? 1 : 0 ; 

i = load_network (&strm, nn, nnode , *ee , *nelm, &errf lag) ; 
if (i ! = 0) 

{ 

flag = errflag = 1; 
fclose (strm->in) ; 
continue; 

) 

e lse 

flag = (errflag != 0) ? 1 : 0 ; 

strcpy (inline, (*nn) [*nnode]->name) ; 

/* see if elements and nodes multiply defined */ 
check_name (*nn, *nnode, *ee, *nelm, &errf lag) ; 

i = load_initial (&strm, *ee, *nelm, *nn, *nnode, inline, &errflag, 0) ; 
if (i ! = 0) 

{ 

flag = errflag = 1; 
fclose (strm->in) ; 
continue; 

} 

else 

flag = (errflag != 0) ? 1 : 0 ; 

load_simulation (&strm, *ee, *nelm, *nn, *nnode, q, nq, simulate, pv, &errflag) ; 
flag *= (errflag != 0) ? 1 : 0 ; 

if (DEBUG) 



} 



for (i = 0 ; i < *nq ; i + +) 

printf ("elm = %d , var = %d , val = %f , time = %f\n", (*q) (i]->elm 
( *q) [i ] ->var , ( *q) [ i] -> value, ( *q) [ i ] ->time) ; 



setup_simulation ( *nn, * nnode , *ee, *nelm, * simulate , xtab, nxtab, 
itab, nitab, &errf lag) ; 
flag = (errflag != 0) ? 1 ; 0 ; 



if (DEBUG) 



{ 



) 



print f ( M *********** \n " ) ; 
for (i = 0 ; i < *nq ; i++) 

printf ("elm = %d , var = %d , val = %f , time = %f\n", (*q) [i]->elm 
(*q) [i]->var, (*q) [i]->value, (*q) (i]->time); 



) 



return flag; 
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} 



get_filename (filename, stream, type, string, flag) 



V 



/* default name of file 
/* io stream */ 

/* — 0 for read; = 1 for write */ 

/* string to prompt user with */ 

/* try to load file immediately if non zero */ 



char ^filename; 

FILE **stream; 
int type; 
char ^string; 
int flag; 

{ 

char inline [MAXCHAR] , direction [2] , command [15] ; 



direction [0] = (type == WRITE_FILE) ? ' w' : ' r' ; 

direction [1] = NULL; 



if (type == READ_FILE) strcpy (command, "Read From”); 
else strcpy (command, "Write To"); 

strstrip ( filename) ; 

while (flag == 0 | | filename [0] == NULL) 

{ 

if (filename [0] == NULL) 

printf(" Enter %s file name : ", string); 

else 

printf(" Enter %s file name (Default %s) : ", string, filename ) 

gets (inline ) ; 
str strip ( inline ) ; 

if (inline[0] == 'q' && inline[l] == NULL) 

return -1; 

if (inline [0] == NULL) 
break; 

if (inline[0] == '?') 
system(DIR) ; 
else 
{ 

strcpy ( filename , inline) ; 
break; 

} 

) 



/* see if still NULL filename */ 

if (filename [0] == NULL) 

{ 

if (type) 

{ 

^stream = stdout; 
return 0; 

} 

else return -1; 
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} 



/* see if write file and filename is stdout */ 

if (strcmp ( filename , "stdout " ) == 0 && type) 

{ 

* stream = stdout; 
return 0; 

} 



/* try to open the file */ 

while ( (*stream = f open (filename, direction) ) == NULL) 

{ 

while ( 1 ) 

{ 

printf(" Cannot %s %s : Enter %s file name : ", 

command, filename, string) ; 
gets ( inline ) ; 
str strip ( inline ) ; 

if (inline [0] — ' q' && inline [1] == NULL) 
return -1; 

if (inline [0] == NULL) 
break; 

if (inline[0] == ' ? ' ) 
system (DIR) ; 
else 
{ 

strcpy ( filename , inline) ; 
break ; 

} 

} 

} 

return 0; 



display_data (inline, dev, ndev, e, nelm, nn, nnode, q, nq, errf lag, out) 
char ^inline; 

DEVICE **dev; 
int ndev; 

ELEMENT **e; 
int nelm; 

NODE **nn; 
int nnode; 

QUEUE **q; 
int nq; 
int errflag; 

FILE *out ; 

{ 
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char line [MAXCHAR] , cmd; 
int flag; 

strcpy ( line , inline ) ; 

line[0] = ' /* strip off first character */ 

strstrip ( line ) ; 
cmd = line [ 0 ] ; 



if (cmd ! = 'd' && cmd != 'D' && cmd != ' e' && cmd != ' E ' && cmd != 'n') 

flag = 1; 
else 

flag = 0; 



while (1) 

{ 

if (flag) 

{ 

print f ( "\n DISPLAY DATA\n" ) ; 



print f ( " d 
print f ( " D 
if (errflag = 
{ 

print f ( " 
print f ( " 
print f ( " 

} 

print f( 11 q 
print f ( " w 



Display Device Summary\n") ; 
Display Device Data\n”) ; 

= 0 ) 

e Display Element Summary\n ” ) ; 
E Display Element Data\n") ; 
n Display Network Summary\n") ; 

Quit\n M ) ; 

Write Device Data File\n” ); 



printf( M Enter Command : ") ; 

gets ( line ) ; 
str strip ( line ) ; 
cmd = line [ 0] ; 



} 



if (cmd == ' d ' ) 

device_summary (dev, ndev, stdout) ; 

else if (cmd == 'D') 

display_device (dev, ndev, line) ; 

else if (cmd == ' e' && errflag == 0) 
element_surrunary (e, nelm, out, line) ; 

else if (cmd == ' E' && errflag == 0) 
display_element (e, nelm, line, q, nq) ; 

else if (cmd == ' n' && errflag *== 0) 
print_network (out, nn, nnode) ; 

else if (cmd == ' ,q' ) 
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return; 

else if (cmd == ' w' ) 

dump_device (dev, ndev, line) ; 
else flag = 1; 

if (flag === 0) return; 



/* use utility menu driver to execute program */ 

/* cmd is the the command name of the utility menu driving program */ 
/* inline is the string input from the user */ 

utilities (cmd, inline) 
char ^inline, *cmd; 

{ 

char ^command, *calloc ( ) ; 

command = calloc (strlen (inline) + strlen (cmd) + 1 0 , si zeof (char ) ) ; 

strcpy (command, cmd) ; 

inline [ 0 ] = ' ’ ; 

strstrip(inline) ; 
strcat (command, " "); 
strcat (command, inline) ; 

system (command) ; 

} 
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/* setup_simulation . c */ 

/* Norbert H. Doerry 

28 February 1989 

This routine sets up the state variable list for conducting the simulation. 

The variable list contains the following variables: 

| | | Node Voltages | 

|x| =1 Variables attached to Current Nodes.** | 



** All the variables except the first one assigned to the 
current node . 

These variables are related by a set of implicit equations of 
the form: 

F (|x|) = |I| — > 0 

where |I| is a vector of 'implicit variables' That should be 
driven to zero. 

Obviously, the order of |x| should be the same as the order of 

in . 

At a Voltage Node, the voltage variables attached to it are all 
set equal to the Node Voltage. The Node Voltage is the variable 
that is allowed to vary. 

At a Current Node, The first variable attached to it is set equal 
to the negative of the sum of the remaining variables. If there 
are no more remaining variables, then the first variable is set 
equal to zero. The remaining variables attached to the current 
node are allowed to vary. If the Current subnode is the reference 
subnode, then the first variable is kept as a separate variable. 



Here are the definitions of the XTABLE and ITABLE structures : 

typedef struct Xtable 

{ 

int nbr; | | number of variables tied to this variable 

int *e; | | array of element indexes 

int *v; | | array of variable indexes 

int *mult; | | array of multipliers for variables 

} 

XTABLE; 



typedef struct Itable 

{ 
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int e; 
int i; 



I | index to element array 
| J index to implicit variable array 



ITABLE; 



#include <stdio.h> 

#include <math.h> 
tinclude "doerry.h" 

Idefine DEBUG 0 

setup_s imulation (nn, nnode, ee, nelm, simulate, xtab, nxtab, itab, nitab, errf lag) 
NODE **nn; 
int nnode; 

ELEMENT **ee; 
int nelm; 

SIMULATE simulate; 

XTABLE * * *xtab; 
int *nxtab; 

ITABLE * * *i tab; 
int *nitab; 
int *errflag; 

{ 

int i, j, k, 1; 
int nbr_x,nbr_i; 

/* count the variables */ 

nbr_x = nbr_i = 0; 

for (i = 0 ; i < nnode ; i++) 

{ 

for (j = 0 ; j < nn [ i ] ->nbr_subnode ; j++) 

{ 



/* skip reference voltage subnode * / 

if (nn [ i] ->subnode [ j ] ->ref_f lag == 1 && 
nn [ i] ->subnode [ j] ->type == 0) 
continue ; 

/ * add extra variable for current reference subnode */ 

if (nn [i] ->subnode [ j] ->ref_f lag == 1 && 
nn ( i] ->subnode [ j ] ->type == 1) 
nbr_x++; 

/* add up the variables : one for voltage subnode 



nbr connect - 1 for current subnode */ 
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if (nn [ i] ->subnode [ j ] ->type == 0) /* voltage subnode */ 

nbr_x += 1 ; 

else /* current subnode */ 

nbr_x += nn [ i ] ->subnode [ j ] ->nbr_connect - 1; 

) 

) 



/* count the implicit variables */ 

for (i = 0 ; i < nelm ; i++) 

{ 

/* skip element if it is not used */ 
if (ee [ i ] -*>f lag == 0) continue; 
nbr_i += ee [i] ->con .nbr_implicit ; 

) 

if (DEBUG) 

printf ( "nbr_i = %d :: nbr_x = %d\n” , nbr__i , nbr_x) ; 



/* ensure number of implict variables and node variables are the same */ 

if (nbr_i != nbr_x) 

{ 

printf (" *** SYSTEM DEFINITION ERROR :\n"); 
printf 

( " *** Unequal number of variables and implicit variables ***\n M ) 

printf ( M *** nbr_x = %d | | nbr_i = %d\n",nbr_x,nbr_i) ; 

*errflag = 1; 
return; 



/* allocate arrays */ 



*xtab = (XTABLE **) cal loc ( (uns igned) nbr_i, sizeof (XTABLE *)); 
*itab = (ITABLE **) calloc ( (unsigned) nbr_i, sizeof ( ITABLE *) ) ; 
for (i = 0 ; i < nbr_i ; i++) 

{ 

(*xtab) [i] = (XTABLE *) cal loc ( (uns igned) 1, sizeof (XTABLE) ) ; 
(*itab) [i] = (ITABLE *) calloc ( (unsigned) 1, sizeof (ITABLE) ) ; 

) 

/* fill the arrays */ 



k = 0; 



for (i - 0 ; i < nnode ; i++) 

{ 

for (j = 0 ; j < nn [ i ] ->nbr_subnode ; j++) 

{ 
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/* skip reference voltage subnode */ 

if (nn [ i ] ->subnode [ j ] ->ref__f lag == 1 && 
nn [ i ] ->subnode [ j ] ->type == 0) 
continue ; 



/* see if reference current subnode */ 



if (nn [i] ->subnode [ j] ->ref__f lag == 1 && 
nn [ i] ->subnode [ j] ->type == 1) 

{ 

for (1 = 0 ; 1 < nn (i ] ->subnode ( j ] ->nbr_connect ; 1++) 

{ 

if (DEBUG) pr int f ( " k = %d\n",k); 



(*xtab) [k]->nbr = 1; 
(*xtab) (k]->e = (int 

(*xtab) [k]->v = (int 

(*xtab) [k ] ->mult= (int 



*) calloc ( (unsigned) 
*) calloc ( (unsigned) 
*) calloc ( (unsigned) 



1, sizeof (int) ) 
1 , sizeof ( int) ) 
1 , sizeof (int) ) 



( *xtab) [ k ] ->e (0 ] = nn [ i 3 ->subnode [ j 3 ->elm_jptr ( 1 3 ; 

(*xtab) [k 3 ~>v [03 = nn [ i 3 ->subnode [ j 3 ->var_jptr [ 1 3 ; 

( *xtab) [k 3 ->mult[ 03 = 1; 
k++ ; 

) 

continue ; 

) 



/* see if a normal voltage subnode */ 

/* ***there is some redundancy here, could save memory by 
using the pointers instead of copying */ 

if (nn [ i 3 ->subnode [ j3 ->type == 0) /* voltage subnode */ 

{ 

if (DEBUG) printf ( " k = %d\n M ,k); 

( *xtab) [ k 3 ->nbr = nn ( i] ->subnode ( j 3 ->nbr_connect ; 

(*xtab) (k3“>e = (int *) calloc ( (unsigned) (*xtab) (k3”>nbr, 

sizeof (int) ) ; 

(*xtab) (k3~>v = (int *) calloc ( (unsigned) (*xtab) (k3”>nbr, 

sizeof (int ) ) ; 

( *xtab) [ k 3 ->mult= (int * ) calloc ( (unsigned) ( *xtab) [ k 3 ->nbr , 

sizeof (int ) ) ; 

for (1 = 0 ; 1 < (*xtab) [k3 ->nbr ; 1++) 

{ 

( *xtab) [k3 ->e (13 = nn (i 3 ->subnode ( j 3 ->elm_jptr [13 ; 

( *xtab) [ k 3 ”>v ( 1 3 = nn ( i 3 ~>subnode [ j 3 - >var_ptr [ 1 3 ; 

(*xtab) (k 3 _ >mult ( 13 = 1; 

) 

k++; 

) 

else /* current subnode */ 

{ 
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for (1 = 1 ; 1 < nn [ i ] ->subnode [ j ] ->nbr_connect ; l+-f) 

{ 

if (DEBUG) pr intf ( ” k = %d\n",k); 



} 



( *xtab) 
(*xtab) 
( *xtab) 
( *xtab) 

( *xtab) 
( *xtab) 
( *xtab) 

( *xtab) 
( *xtab) 
( *xtab) 



k++; 

} 



[k]->nbr = 2; 

[k]->e = (int *) calloc ( (unsigned) 
[k]->v = (int *) calloc ( (unsigned) 
[k]->mult= (int *) calloc ( (unsigned) 



2 , sizeof (int) ) 
2 , sizeof ( int) ) 
2 , sizeof (int) ) 



[k]->e[0] = nn ( i ] ->subnode [ j ] ->elm_ptr ( 1] ; 
[k]->v[0] = nn [i] ->subnode [ j ] ->var_ptr [1] ( 
[k] ->mult [0]= 1; 



[k]->e[l] = nn [ i ] ->subnode [ j ] ->elm__ptr [ 0 ] ( 

[k]->v[l] = nn [ i ] ->subnode [ j ] ->var_ptr ( 0 ] , 

[k] ->mult [ 1 ] = “1; 



/* save the implicit variable pointers */ 

for (i = 0,k = 0 ; i < nelm ; i++) 

{ 

/* skip element if it is not used */ 
if (ee[i]->flag == 0) continue; 

for (j = 0 ; j < ee [ i ] ->con . nbr_implicit ; j++) 

{ 

if (DEBUG) pr intf ( ” k = %d\n" # k); 

(*itab) [k]->e = i; 

(^itab) ( k ] — > i = j; 

ee [ i] ->con . imp_index [ j ] = k; 

k++ ; 

} 

} 

*nitab = nbr_i; 

*nxtab = nbr x; 



} 
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/* simulate. c */ 

/* Norbert H. Doerry 

14 March 1989 

This routine performs the actual simulation of the electrical system 

The procedure is : 

A. Initialize 

old state variables to their initial values 

set current variable initial guesses to the value specified. 

set voltage variable initial guesses to the value specified for 
the first voltage specified at a voltage subnode. 

B. Balance system 

B1 . Calculate the implicit variables, see if convergence is 
satisfied, (if satisfied, go to C) 

B2. Manufacture Jacobian. 

B2a . From function calls 

B2b. By varying inputs to system and allowing to change 
B3 . Solve system of equations with Jacobian and Implicit variables 
B4 . Apply correction to voltage and current guesses. 

C. Print output variables 

D. Increment time counter (if after TMAX, then end) 

E. See if external input variables have changed, if so change them 

F. Set old state variables to present state variables 

G . Go to B 

NOTE: eventually may have to include tests for switches which will] 

effectively change the system. For example, for a diode, if the 
the voltage drop is less than .6 volts or the current is going int 
the wrong direction, then one of the implicit equations will drive 
one of the currents to zero. If the voltage drop is greater than 
.6 volts and the current is in the right direction, then the implicit 
equation is set equal to .6 - the voltage drop. 

After a switch is thrown, the system will have to be rebalanced. If 
more than one switch can be thrown at a time is unknown. 



*** 27 March 1989 *** 

The above statements are probably not true, By properly rotating 
the axes of the coordinate systems, I think one can properly define 
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the implicit variables such that you will get convergence. (As long 
as the characteristic is continuous) -nhd 

*** Revision a : 29 March 1989 *** 

Added f flush (out) statements so that the output file will have 
something in it if the program crashes. 



*/ 

#include <stdio.h> 
#include <math.h> 
#include "doerry.h" 

#de f ine BIG 1.0e+16 
#de f ine DEBUG 0 



run_simulat ion (line , ee , nelm, n, nnode , qq, nq, xtab, nxtab, itab, nitab, pv ; 
simulate, flag) 

char *line; /* this is the command line */ 

ELEMENT **ee; 
int nelm; 

NODE * *n; 
int nnode; 

QUEUE * *qq; 
int nq; 

XTABLE * * xt ab ; 
int nxtab; 

I TABLE * * it ab ; 
int nitab; 

SIMULATE * simulate ; 

PRINT_VAR *pv; 

int flag; /* flag = 0, start at beginning, flag = 1 continue to new TMAX */ 

{ 

FILE *out ; 

char filename [MAXCHAR] ; 
int i , j , k; 

double * jacob, ^implicit , *var; 
char *calloc ( ) ; 

double impl icit_error () , square_error , start; 
double temp; 



if (DEBUG) 

{ 



) 



for (i = 0 ; i < nq ; i++ ) 

printf ("elm = %d , var = %d , val = %f , time 
qq ( i ] ->var, qq ( i ] -> value , qq [ i ) ->time) ; 



% f \n" , qq [ i ] ->elm, 



jacob = (double *) calloc (nxtab * nxtab , sizeof (double) ) ; 
implicit = (double *) calloc (nxtab , sizeof (double) ) ; 
var = (double *) calloc(nxtab , sizeof (double) ) ; 

if (jacob == NULL) return 1; /* out of memory error */ 
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/* see if want to write to a file */ 

strsplit (line, filename, 1, MAXCHAR) ; 

if (filenamefO] != 0) 

{ 

out = f open (filename, "w" ) ; 
if (out == NULL) out = stdout ; 

} 

else 

out = stdout; 

/* initialize the simulation to initial values if flag == 0 */ 

if (flag == 0) 

{ 

initialize_simulation (ee, nelm, n, nnode, ^simulate) ; 
simulate->time = simulate->tmin ; 

} 



/* perform the simulation */ 

for (k = 0, start = simulat e->t ime ; simulate->time <= simulat e->tmax 
simulate->time = start + (double) (++k) * simulate->dt ) 

{ 

/* check the external input variable queue */ 

check_queue (ee, nelm, qq, nq, simulat e->t ime ) ; 

for (i = 0 ; i <= simulate->max_iteration ; i++) 

{ 

/* calculate the implicit variables */ 

/* first time, balance the system */ 

/* if (k == 0) 

calc_implicit (ee, nelm, 0.0); 
else 

*/ calc_implicit (ee, nelm, simulat e->dt ) ; 

/* calculate jacobian submatrices if calc_implicit didn't 
already do so */ 

for (j = 0 ; j < nelm ; j++) 

{ 

if (ee ( j ] ->con . jacob_switch == 1) 
continue; 

/* if (k == 0) 

{ 

temp = simulate->dt ; 
simulate->dt = 0.0; 
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elm__jacob (ee [ j ] , ^simulate ) ; 
simulate->dt = temp; 

} 

else 

*/ elm_jacob (ee [ j] , ^simulate) ; 

} 

/* find the mean square error */ 

square_error = implicit_error (ee, nelm) ; 

/* see if have met convergence test */ 

if (square^error < simulate->converge ) 
break; 

/* make the jacobian matrix */ 

make_ jacob ( jacob, xtab, nxtab, itab, nitab, ee , nelm, n, nnode , * simulate) 
/* make the implicit variable vector */ 
make_implicit (ee, nelm, itab, nitab, implicit) ; 

/* solve the system of equations */ 

if (gauss_eliminate (nxtab, jacob, implicit , var) != 0) 

{ 

print f ( " *** SINGULAR SYSTEM MATRIX at time %f\n", 
simulate->time ) ; 
return 0; 

} 

/* note that the contents of jacob and implicit were 
destroyed by gauss_e liminate */ 

/* apply the corrections to the variables */ 
update_variables (ee , nelm, n, nnode, xtab, nxtab, var) ; 



} 

/* see if failed the convergence test */ 

if (i >= simulate->max_iterat ion) 

{ 

print f ( " *** CONVERGENCE TEST FAILED at time %f\n”, simulate->time 
return 0; 

} 

/* print the output variables if at the proper time */ 
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print_output (out, ee, nelm, n, nnode, pv, simulate) ; 

/* set the old_state variables equal to the state variable */ 

for (i = 0 ; i < nelm ; i++) 

{ 

for (j = 0 ; j < ee ( i ] ->con . nbr_states ; j++) 

ee [ i] ->con . old_state [ j ] = e e [ i ] ->con . state [ j ] ; 

} 



} 



/* free the jacobian array along with the other two vectors */ 

free ( jacob) ; 
free (implicit) ; 
free (var) ; 

if (out != stdout) fclose (out) / 



) 

initialize simulation (ee, nelm, n, nnode, simulate) 

ELEMENT **ee; 
int nelm; 

NODE * *n; 
int nnode; 

SIMULATE simulate; 

{ 

int i , j , k, eptr , vptr , typ; 
double node_volt, current , sum; 

/* initialize state variables and external input variables */ 

for (i = 0 ; i < nelm ; i++) 

{ 

for (j — 0 ; j < ee [ i ] ->con . nbr^states ; j++) 

ee [ i } ->con . old_state [ j ] = ee [ i ] ->con . init_state [ j } ; 

for (j = 0 ; j < ee [ i ] ->con . nbr_ext_in ; j++) 

ee [ i ] ->con . ext_in [ j ] = ee [ i } ->con . init_ext_in ( j ] ; 

/* initialize jacobian matrices to zero */ 

for (j = 0 ; j < ee [ i ] ->con . nbr_implicit ; j++) 
for (k = 0 ; k < ee [ i ] ->con . nbr_input s ; k++) 

ee [ i ] ->con . jacob_in [ j + ee [ i ] ->con . nbr^implicit * k] = 0.0 



} 



/* initialize the input variables */ 
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for (i = 0 ; i < nnode ; i++) 

< 

for (j = 0 ; j < n [ i ] ->nbr_subnode ; j++) 

{ 

if (n [ i ] ->subnode [ j ] ->type == 0) /* voltage law */ 

{ 

eptr = n [ i] -> subnode [ j ] ->elm_ptr [ 0] ; 
vptr = n [ i] ->subnode [ j ] ->var_ptr [ 0] ; 
node_volt = n [ i ] ->subnode [ j ] ->init_volt ; 

ee [ eptr ] ->con . in [ vptr ] = node_volt; 

for (k — 1 ; k < n [ i ] ->subnode [ j ] ->nbr_connect ; k++) 

{ 

eptr = n [i] ->subnode [ j] ->elm_ptr [k] ; 
vptr = n [ i] ->subnode [ j] ->var_ptr [ k] ; 
ee [eptr] ->con . in [vptr] = node_volt; 

} 

} 

else /* current law */ 

{ 

for (k = 1 , sum = 0; k < n [ i] ->subnode [ j] ->nbr_connect ; k++) 

{ 

eptr = n [ i] ->subnode [ j] ->elm_ptr [k] ; 
vptr = n [ i] ->subnode [ j] ->var_ptr [k] ; 
current = ee [eptr ] ->con . init_in [vptr ] ; 

ee [eptr ] ->con . in [vptr] = current; 
sum += current; 

} 



/* get pointer of first variable */ 

eptr = n [ i ] ->subnode [ j ] ->elm_pt r [ 0 ] ; 
vptr = n [i] ->subnode [ j] ->var_ptr [0] ; 

/* initialize the current for the first variable */ 

/* If the first variable is the reference current node/subnode, 
then it is an independent state variable, otherwise, set 
it equal to the negative sum of the other currents entering 
the subnode */ 

ee [ eptr ] ->con . in [vptr ] = /* see if reference node */ 

(n [ i] ->subnode [ j ] ->ref_f lag == 1) ? 

ee [eptr ] ->con . init^in [vptr ] : -sum; 



} 



} 
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calc_implicit (ee, nelm, dt) 
ELEMENT **ee; 
int nelm; 
double dt; 

{ 

int i; 
int (*f) () ; 



for (i = 0 ; i < nelm ; i++) 

{ 

if (ee[i]->flag == 0) 
continue; 

f = ee [ i] ->device“>f ; 

(*f) (ee [ i ] , dt ) ; 

} 

} 

/* implicit_error returns the mean square value for the implicit variable */ 

double implicit_error (ee, nelm) 

ELEMENT **ee; 
int nelm; 

{ 

int i , j , k , nbr ; 
double err; 

nbr = 0 ; 
err = 0.0; 

for (i = 0 ; i < nelm ; i++) 

{ 

if (ee[i]->flag == 0) 
continue ; 

for (k = 0 ; k < ee [ i ] ->con . nbr_implicit ; k + +) 

{ 

if (fabs (ee [ i ] ->con . implicit [k] ) < BIG) 

err += ee [ i ] ->con . implicit [ k] * ee [ i ] ->con . implicit [ k ] ; 
else 

err += BIG; 
nbr++ ; 

} 

} 

if (nbr != 0) 

return (err / (double) nbr) ; 
else 

return 0.0; 
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} 

make implicit (ee, nelm, itab, nitab, implicit) 

ELEMENT **ee; 
int nelm; 

I TABLE * * itab; 
int nitab; 
double ^implicit; 

{ 

int i,eptr,iptr; 

for (i = 0 ; i < nitab ; i++) 

{ 

eptr = itab[i]->e; 
iptr = itab[i]->i; 

implicit [i] = ee [ eptr ] ->con . implicit [ iptr ] ; 

} 

} 



/* check_queue updates the external inputs. It assumes that 
the queue array is in time order */ 

check_queue (ee, nelm, qq, nq, time) 

ELEMENT **ee; 
int nelm; 

QUEUE **qq; 
int nq; 
double time; 

{ 

int i; 

for (i = 0 ; i < nq && qq[i]->time <= time ; i++) 

{ 

ee [qq [i] ->elm] ->con .ext_in [qq [i] ->var] = qq [ i ] ->value ; 

if (DEBUG) printf ("elm = %d , var = %d , val = %f , time = %f\n" 
qq [ i ] ->elm, qq [i] ->var, qq[i] ->value, qq [i] ->time 



} 



} 



update_variables (ee, nelm, n, nnode, xtab, nxtab, var) 
ELEMENT **ee; 
int nelm; 

NODE **n; 
int nnode; 

XTABLE **xtab; 
int nxtab; 
double *var; 

{ 

int i , j ; 
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/* update all the variables */ 

for (i = 0 ; i < nxtab ; i++) 

{ 

for (j = 0 ; j < xtab[i]->nbr ; j++) 

{ 

ee[xtab[i]->e[j]] ->con . in [xtab [ i] ->v [ j ] ] -= 

var [i] * (double) xtab [ i] ->mult [ j ] ; 

} 

) 



) 

static double last_display ; 

print_output (out ,ee, nelm, nn , nnode , pv, simulate ) 

ELEMENT **ee; 
int nelm; 

NODE **nn; 
int nnode; 

PRINT_VAR *pv; 

SIMULATE * simulate ; 

FILE *out ; 

{ 

int i , j , k; 

extern double last_display; 

PRINT_VAR * temp ; 

/* print out header */ 

if (simulate-’>time == s imulat e->tmin ) 

{ 

fprintf (out , " time " ) ; 

for (temp = pv->next ; temp ! = NULL ; temp = temp->next) 

{ 

if (temp->typ != 2) /* external output or input*/ 

fprintf (out , "%-12s ", ee [ temp->e ] ->name ) ; 
else /* print node name */ 

fprintf (out, "%-12s ",nn [temp->e] ->name) ; 

} 

fprintf (out, ”\n M ) ; 

fprintf (out , " ”); 

for (temp = pv->next ; temp ! = NULL ; temp = temp->next) 

{ 

if (temp->typ == 0) /* external output */ 

fprintf (out, " %-12s ",ee (temp->e] ->device->ext__out_name [temp->v] ) 
else if (temp->typ === 1) /* external input */ 

fprintf (out , ,, %-’12s " , ee [temp->e] ->device->ext_in_name [temp->v] ) ; 
else /* print node subname */ 
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fprintf (out, "%-12 s ", nn [temp->e] ->subnode [temp->vj ->name) 

} 

fprintf (out, "\n") ; 

/* ensure first line gets printed */ 

last_display = simulate->time - 2 * simulate->print_dt ; 

/* print out variable names on screen if not printing data 
to the screen */ 



if (out 
{ 

for 

{ 



!= stdout) 

(temp = pv->next ; temp != NULL ; temp = temp->next ) 

if ( temp->typ == 0) /* external output*/ 

printf(" %12s : %-12s\n", ee [temp->e ] ->name, 

ee [temp->e] ->device->ext_out_name [ temp->v) ) ; 
else if (temp->typ == 1) /* external input */ 

printf(" %12s : %-12s\n", ee [temp->ej ->name, 

ee [ temp->e ] ->device->ext_in_name [ temp->v] ) ; 
else /* print node name */ 

printf(" %12s : %-12s\n", nn [temp->e] ->name, 

nn [temp->e ] ->subnode [temp->v] ->name) ; 



} 



print f ( " \n" ) ; 



} 



( simulate ->time - last_display >= 
simulate->print_dt - simulate->dt / 10.0) 
j | simulate->time == simulate->tmin 
| | simulate->time >= simulate->tmax) 

last_display = simulate->time; 

fprintf (out , " %-12.5g ", simulate->time) ; 

for (temp = pv->next ; temp != NULL ; temp = temp->next) 

{ 

if (temp->typ == 0) /* external output */ 

fprintf (out , " %- 12 . 5g ",ee [ temp->e ] ->con . ext_out [ temp->v] ) 
else if (temp“>typ == 1) /* external input */ 

fprintf (out , " %-12 . 5g ",ee [ temp->e ] ->con . ext_in [ temp->v] ) ; 
else 

/* subnode voltage */ 

{ 

i = nn [ temp->ej ->subnode [ temp->v] ->elm_ptr [ 0] ; 
j = nn[temp->e] ->subnode [temp->v] ->var__ptr [0] ; 
fprintf (out, "%-12.5g ", ee [i] ->con . in [ j] ) ; 

} 

} 
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fprintf (out, M \n") ; 

if (out != stdout) 

{ 

print f ( " . ; 

f flush (stdout ) ; 

f flush (out); /* added as revision a */ 

} 



} 

} 

print_matrix ( out , mat, m, n) 

FILE *out ; 
double *mat; 
int m; 
int n; 

{ 

int i, j; /* i is row, j is column */ 

fprintf (out, "\n M ) ; 

for (i = 0 ; i < m ; i++) 

{ 

for (j = 0 ; j < n ; j++) 

fprintf (out , 11 %7.4g M ,mat[i + j^m] ) ; 
fprintf (out, "\n") ; 

} 

} 
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